CARDEROCKMV/5HD-1 2S7-01  USBtS  MANUAL  FOR  THE  TIME 
USTORY  AND  ACCESS  TIME  HISTORY  PROGRAMS _ 


AD-A265  386 


Carderock  Division 

Naval  Surface  Warfare  Center 

Bethesda,  Maryland  20084*5000 

CARDEROCKDIV/SHD-1 297-01  February  1993 

Ship  Hydromechanics  Department 
Research  and  Development  Report 


2-* 


SDTIC 

ELECTE  n 

c  u 


USERS  MANUAL  FOR  THE 
SIMULATION  TIME  HISTORY  AND 
ACCESS  TIME  HISTORY  PROGRAMS 

by 

W.  G.  Meyers 
C.  J.  Bennett 
T.  R.  Applebee 


Approved  for  public  release ;  distribution  is  unlimited 


r 

4  28  03  0 


93-09059 

iwninii 


SeCURHY  CLASSETCATON  OF  THIS  PAGE 


It  REPORT  SECURITY  CLASSIFICATION 

UNCLASSIFIED 


^  WCUNTV  CLASamCAnOM /umovrv 


st  oeaAs«ncATiot«oowNafv«iNQ  sooule 


REPORT  DOCUMENTATION  PAGE 


tb  RESTRICTIVE  MARKINGS 


Form  Approved 
OMSNo  OTCM-OISS 


X  0ISTRI8UT1ONMVAILABHJTY  OF  REFORT 

Approved  for  public  release:  distribution  unlimited 


4.  P&FORMMQORaAMZATION  REPORT  HUMBERTS) 

CARDEROCKDIV/SHD-1297-01 


S  NAME  OF  FERRORSSNO  OROANZATION 

Carder  ock  Division, 

Naval  Surface  Warfare  Center 


St  ADORERS  (C*y,  SMB.  and  3P  CM*) 


Sb.  OFFICE  SYMBOL 


S.  MOMTORMO  OROANI2AT)ON  REFORT  NUMBER 


Tb  ADORESS  (Cby.  SUM,  And  BP  Code) 


Bethesda,  Maryland  20084-5000 


Sb  naaae  of  funoinq/bronsofmno 

ORGANIZATION 

Naval  Sea  Systems  Command 


be.  A00R£SS(O*.  Mnm.  and  BP  Codb) 


Washington,  DC  20362-5101 


11.  TITLE  OnokMAig  Sbeuby  CMAAMoaSon) 


lb.  OFFICE  SYMBOL 

(rtAppfcatoN) 

05H3  and  06W3 


S  PROCUREMENT INSTURMENT  NUMBER 


40.  SOURCE  OF  FUNONO  NUMBERS 


PROGRAM 
ELEMENT  NO 
SMS4N  R770N 
S4270N 


PROJECT 

NO. 


WORK  UNITS 
ACCESSION  NO 


USERS  MANUAL  FOR  THE  SIMULATION  TIME  HISTORY  AND  ACCESS  TIME  HISTORY  PROGRAMS 


IE  PERSONAL  AVTM0R(8) 

Mayers.  W.  G„  Bennett,  C.  J.  and  Applebee,  T.  R. 


1 1s  TYPE  OF  REPORT  I  1».  TIAC  COVERED  1 14.  DATE  OF  R3WT  (Yam.  Monbv  D»y)  I  IS.  PAOE  COUNT 

Final  I  prom  87iooi  to  saosso  I  February  1993  I  144 


It.  tUPPLEMCKTAnY  NOTATION 


it,  SUBJECT  TEAMS  (Corttnm  on  mrwnm  M  naoatMry  ant  Idecgty  by  Mock  numfttr) 

Software  Documentation,  Time  History  Generation, 
Ship  Motion  Prediction 


ILD 

GROUT  ! 

SUBGROUT 

lb.  ABSTRACT  (Cordbua  on  f 


i  dnaoaaAAfy  and  MarM)r  by  AMok  nurbAf) 


The  Simulation  Time  History  Computer  Program,  STH,  has  been  developed  at  the  Carderock  Division  of  the  Naval  ! 
Surface  Warfare  Center  to  provide  realistic,  random  wave  time  histories  of  the  slx-degree-of-freedom  (6DOF)  ship  re¬ 
sponses,  l.e.,  surge,  sway,  heave,  rod, pitch,  and  yaw,  The  6DOF  'origin*  time  histories  are  developed  using  transfer  func¬ 
tions  obtained  from  the  Navy  Standard  Ship  Motion  Computer  Program,  SMP84.  The  random  waves  are  simulated 
using  a  two-parameter  Bretschneider  wave  spectral  model.  The  random  waves  are  represented  as  either  undirectional 
(kxigcrested)  or  spread ±  90  degrees  about  a  predominant  direction  (short crested). 

A  separate  Access  Time  History  Computer  Program,  ACTH,  has  been  developed  to  provide  additional  displacements, 
vsiodties,  and  accelerations  at  various  locations  on  the  ship .  Force  time  histories,  which  include  gravity,  are  computed 
in  the  ship's  body  axis  coordinate  system.  The  ACTH  program  utilizes  the  origin  time  histories  generated  from  the  STH 
program,  (continued) 


•svi  ii.  ’  wm  i»u 'L'.Mi T u.T.TMi 
-i."."  i  i.  i j  » 


William  G.  Meyers 


DOFmri  147S,  JUNSS 


r .  abstract  security  CLASSIFICATION 

UNCLASSIFIED 


UNCLASSIFIED 


8£CUfVTY  CLASSFICATKX  OF  THB  PAOE 


10.  SOURCE  OF  FUNDING  NUMBERS  (continued) 

DN  502166 

19.  ABSTRACT  (continued) 

The  computer  programs,  STH  and  ACTH,  are  written  in  FORTRAN  77.  The  response  time  histories 
are  written  from  the  ACTH  program  in  binary  format  but  can  optionally  be  written  instead  in  an  ASCII 
format  for  ease  in  transferring  between  computers. 


DO  Pom  1471,  JUN  M 


UNCLASSIFIED 


CONTENTS 


Page 

ABBREVIATIONS  AND  SYMBOLS  .  Vi 

ABSTRACT .  1 

ADMINISTRATIVE  INFORMATION  .  1 

INTRODUCTION .  1 

THEORETICAL  BACKGROUND .  3 

SHIP  RESPONSES  IN  REGULAR  WAVES .  4 

SHIP  RESPONSES  IN  RANDOM  SEAS .  5 

SEAWAY  DESCRIPTION  .  6 

DEFINITION  OF  TIME  HISTORIES  .  8 

Wave  Time  Histories  at  the_Qrigin .  9 

Origin  Motion  Time  Histories . 11 

Motions  at  a  Point  Time  Histories . ll 

Wave  Time  Histories  at  a  Point . 11 

Relative  Motion  Time  Histories . 12 

Ship  System  Force  Time  Histories . 12 

COMPUTER  SYSTEM  .  14 

SIMULATION  TIME  HISTORY  PROGRAM,  STH . 15 

STH  INPUT  DESCRIPTION . 16 

STH  OUTPUT  DESCRIPTION  .  20 

ACCESS  TIME  HISTORY  PROGRAM,  ACTH  .  22 

ACTH  INPUT  DESCRIPTION  .  22 

ACTH  OUTPUT  DESCRIPTION . 27 

PROCEDURE  USED  TO  DEVELOP  SHIP  RESPONSE  TIME  HISTORIES . 30 

TIME  HISTORY  EXAMPLES  .  32 

SELECTION  OF  SHIP  AND  SEAWAY  CONDITIONS . 32 

ANALYSIS . 33 

Beam  Sea  Wave  Time  History . 33 

Ship  ffesponse  Time  Histories  in  Bow  &  Stern 

Quarterlnfl-Ssaa  .  34 

CONCLUDING  REMARKS . 36 

APPENDIX  A  -  LISTING  OF  STH  PROGRAM . 69 

APPENDIX  B  -  LISTING  OF  ACTH  PROGRAM . 105 

REFERENCES . 135 

iii 


FIGURES 

Page 

1.  Sign  convention  for  translatory  and  angular 

displacements . 37 

2.  Definition  of  computational  heading  angle,  n  .  37 

3.  Bretschneider  wave  spectra  for  7,  11,  and 

21-second  modal  wave  periods  .  38 

4.  Example  of  the  shortcresting  method  for  an 
output  predominant  heading  of  45  degrees 

(bow  seas) . 39 

5.  Organization  chart  of  STH,  ACTH,  and  SMP84 

directories  and  files . 40 

6.  Input  reference  system  (SMP84)  .  41 

7.  Point  locations  on  DD-965  for  point  time 

history  example . 42 

8.  Computer-generated  hull  lines  for  the  DD-965  .  43 

9.  Example  of  wave  behavior  in  shortcrested  beam 
seas,  signficant  wave  height  of  12  feet  and 

modal  wave  period  of  9  seconds . 44 

10.  Analysis  comparison  of  beam  seas  wave  time 

history  with  theoretical  predictions  .  45 

11.  Comparison  of  computed  time  histories  for 
the  DD-965  at  20  knots  in  shortcrested  bow 

and  stern  quartering  seas . 46 

TABLES 

1.  Constants  for  single  amplitude  Rayleigh 

statistics  . 47 

2.  Summary  of  files  used  by  the  STH  program . 48 

3.  STH  data  set  summary . 48 

4.  Example  of  STH.IHP  file . 49 

5.  Example  of  SR3.TEX  file . 50 

6.  Example  of  STHLOG.TEX  file . 52 

7.  Summary  of  files  used  by  the  ACTH  program . 53 

8.  ACTH  data  set  summary . 53 

iv 


TABLES  (Continued) 


Page 

9.  Example  of  ACTH.INP  file . 54 

10.  Method  used  to  select  ACTH  channels . 55 

11.  ACTH  menu  screen . 56 

12.  Example  of  AR3.TEX  file . 57 

13.  Example  of  AR3.ASC  file . 59 

14.  Example  of  ACTHLOG.TEX  file . 59 

15.  ACTH  error  message  summary  . . 60 

16.  Example  of  roll  angle  RSV  table . 61 

17.  Example  of  vertical  velocity  at  a  point  RSV 

table . 62 

18.  Example  of  SMP.INP  file . 63 

19.  DD-965  computer-generated  hydrostatics  .  65 

20.  Example  of  response  amplitude  operator 

magnitudes  and  phases  for  DD-965  6D0F  responses . 66 

21.  Minimum  analysis  of  ship  responses  for  the 
DD-965  at  a  ship  speed  of  20  knots  in  bow 

and  stern  quartering  seas . 67 


l 


Accesior,  r or  J  j 

NTIS 

CRA&I 

[t 

one 

TAB 

□ 

□ 

Jij  jllftC 

itlQI' 

.  _ 

Bv 

DisInbutlOi'  1 

AvdiljDiiity  Codes 

Avjil 

nd  /  or  1 

Qisl 

Special  1 

9A 

_ 

V 


A 

ABBREVIATIONS  AND  SYMBOLS 

Ccr.stant  used  in  Bretschneider  spectrum 

ACTH 

Access  time  history  computer  program 

ASCII 

American  National  Standard  Code  for  Information 

B 

Exchange 

Constant  used  in  Bretschneider  spectrum; 

B2 

Square  root  of  cosine-squared  weighting  constant  used 

for  shortcrested  time  histories 

Cosine- squared  weighting  constant  used  for  shortcrested 

DAT 

sea  spectrum 

Extension  used  for  time  history  data  files 

DOS 

Disk  operating  system  used  for  personal  computers 

ELq,  ELa, 

ELy 

Longitudinal,  lateral,  and  vertical  displacements  in 

EXE 

the  earth  reference  system 

Extension  used  for  executable  files 

FL0'  FLA' 

FLV 

Longitudinal,  lateral,  and  vertical  forces  in  the  earth 

g 

reference  system 

Gravitational  acceleration 

INP 

Extension  used  for  input  files 

K 

wave  number 

LC 

Longcrested 

LCG 

Longitudinal  center  of  gravity  referenced  from  the 

Mij 

Forward  Perpendicular 

Angular  rotation  matrix  element 

Mbyte 

Megabyte 

MHz 

Megahertz 

Mil 

Motion- induced  interruption 

MS-DOS 

Microsoft  Disk  Operating  System 

PC 

Personal  computer 

rps 

Radians  per  second 

RSV 

Response  statistical  value 

Sf 

SLO'  SLA' 

Wave  spectral  density 

SLV 

Longitudinal,  lateral,  and  vertical  forces  in  the  ship 

SC 

reference  system 

Shortcrested 

Vi 


.i 


SMP 

SMP81 

SMP84 

STH 

t 

TEX 

THACP 


* 

z 


6  DOF 

y 


€Pk 


(*Vl/3 

0 


v 


a 

* 

x 

u) 

WE 


ABBREVIATIONS  AND  SYMBOLS  (Continued) 

Navy  Standard  Ship  Motion  Program 

1981  version  of  the  Navy  Standard  Ship  Motion  Program 
1984  version  of  the  Navy  Standard  Ship  Motion  Program 
Simulation  time  history  computer  program 
Time 

Extension  used  for  text  files 

Time  History  Access  Program  used  for  the  non-aviation 
ship  motion  data  base 
Modal  wave  period 

x,y,z  coordinates  of  any  point  on  the  ship,  referenced 
to  the  origin  at  the  LOG 

Six-degrees-of-freedom  ship  motions  (surge,  sway, 
heave,  roll,  pitch,  and  yaw) 

Random  phase  angle  used  to  develop  wave  and  ship 
response  time  histories 

Phase  angle  between  ship  response  and  wave  elevation  at 
the  origin 

Wave  and  wave  amplitude 

Wave  at  a  point  location  on  the  ship 

Significant  wave  height 

Pitch  angle 

Ship  heading  angle; 

Predominant  wave  direction  with  respect  to  the  sea  for 
shortcrested  seas 

Component  of  wave  direction  with  respect  to  the  ship 
for  shortcrested  seas 
Standard  deviation 
Roll  angle 
Yaw  angle 

Wave  direction  relative  to  predominant  wave  direction 
Wave  frequency  in  radians  per  second 
Encountered  wave  frequency 


vii 


ABSTRACT 


Tha  Simulation  Tim a  Hiatory  Computer  Program,  STH, 
haa  baan  davalopad  at  tha  Cardarcck  Division  of  tha  Naval 
Surfaca  Warfare  Cantar  to  provida  raaliatic,  random  wave 
tima  histories  of  tha  a  is- degree-of- freedom  (6DOF)  ahip 
raaponaaa,  i.a.,  aurga,  away,  haava,  roll,  pitch,  and  yaw. 
Tha  6DOF  * origin "  tima  hiatoriaa  ara  davalopad  uaing 
t r ana  far  functions  obtainad  from  tha  Navy  Standard  Ship 
Motion  Computar  Program,  SMP84 .  Tha  random  w avaa  ara 
aimulatad  uaing  a  tvo -paramatar  Bratachnaidar  vava  apactral 
modal.  Tha  random  vavaa  ara  rapraaantad  aa  aithar 
unidirectional  (longcraatad)  or  apraad  t  90  dagraaa  about  a 
predominant  direction  ( shorter ea ted) . 

A  aeparate  Access  Time  Hiatory  Computer  Program, 
A  CTH,  has  alao  been  developed  to  provide  additional 
displacements ,  velocities,  and  accelerationa  at  various 
locations  on  the  ahip.  Force  tima  hiatoriaa,  which  include 
gravity,  ara  computed  in  the  ship's  body  axis  coordinate 
ay stem.  The  A  CTH  program  utilizes  the  origin  time 

histories  generated  from  the  STH  program. 

The  computer  programs ,  STH  and  A  CTH,  are  written  in 
FORTRAN  77.  The  response  time  hiatoriaa  ara  written  from 
tha  A CTH  program  in  binary  format  but  can  optionally  be 
written  instead  in  an  ASCII  format  for  eaae  in  transferring 
between  computers. 


ADMINISTRATIVE  INFORMATION 

Funding  for  this  project  is  authorized  and  provided  by  the  Naval 
Sea  Systems  Command  (NAVSEA)  in  FY88  under  Work  Request  10472, 
Project  Element  63546N  and  in  FY89  under  Work  Request  10447,  Project 
Element  64270N,  identified  at  the  Carderock  Division  (CARDEROCKDIV) 
as  Work  Units  1561-810  and  1561-859,  respectively.  Additional 
funding  to  complete  the  documentation  was  provided  by  the  Naval 
Research  Laboratory  (NRL)  in  FY92  under  Work  Request  20057,  Project 
Element  62270N,  identified  at  CARDEROCKDIV  as  Work  Unit  1561-887. 

INTRODUCTION 

In  1981,  CARDEROCKDIV*  documented  and  released  a  frequency 
domain  ship  motion  prediction  program  called  the  Navy  Standard  Ship 
Motion  Program,  SMP81.1  This  computer  program,  and  the  subsequently 
updated  version,  SMP84,2  calculates  the  translational  and  angular 
ship  statistical  responses  in  irregular  (random)  seas. 


*  formerly  the  David  Taylor  Research  Center  (DTRC) . 
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Although  originally  encompassed  within  the  scope  of  the  SMP 
developmental  work,  response  time  history  generation  has  never  been 
formally  documented  as  a  computer  tool.  In  1976,  using  the  theory 
and  equations  from  References  3  and  4,  a  longcrested,  origin  time 
domain  data  base  was  assembled  for  a  set  of  destroyers  and  frigates. 
This  data  base,  in  turn,  could  be  accessed  and  manipulated  to  obtain 
either  longcrested  or  shortcrested  response  time  histories  via  the 

5 

Time  History  Access  Program,  THACP  .  This  report  will  provide  the 
software  and  documentation  for  generating  origin  time  histories  and  a 
new  access  program  for  utilizing  them  to  obtain  additional  response 
time  histories. 

The  need  for  a  time  domain  versus  a  frequency  domain  methodology 
lies  in  the  phase  relationship  between  ship  motions.  Frequency 
domain  analysis  eliminates  the  phasing  information  while  developing  a 
universe  of  single  amplitude,  statistical  answers  for  ship  responses 
over  a  range  of  ship  headings,  ship  speeds,  and  modal  wave  periods  at 
specific  wave  heights.  Frequency  domain  answers,  such  as  those 
predicted  in  SMP84,  are  independent,  earth-referenced,  absolute  or 
relative  displacements,  velocities,  and  accelerations  at  various 
locations  on  the  ship. 

On  the  other  hand,  time  domain  analysis  retains  the  phasing  of 
one  motion  with  respect  to  another.  Thus  a  data  base  of  origin  time 
histories  can  be  operated  upon  at  any  point  in  time  to  obtain 
additional  response  time  histories  at  various  locations  on  the  ship. 
It  also  allows  for  the  translation  from  an  earth-referenced  system  to 
a  ship-referenced  system  whereby  the  forces  on  an  object  on  the  ship 
can  be  determined.  This  is  required  when  evaluating  forces,  apparent 
in  the  ship's  body  axis  coordinate  system,  due  to  the  component  of 
gravity  contributed  by  angular  displacements. 

Applications  for  using  time  domain  data  are  many  and  varied. 
For  example,  ship  motion  time  histories  can  be 

o  input  to  flight  simulators  for  launch  and  recovery  of 
aircraft  on  moving  decks; 

o  used  for  determining  forces/effects  on  equipment, 
aircraft,  munitions6,  or  anything  on  or  in  the  ship; 
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o  utilized  for  human  factors  considerations  and  the 

7 

occurrence  of  Motion-Induced  Interruptions  (Mil)  ; 
o  helpful  in  developing/evaluating  limitations  on 
shipboard  systems. 

The  remainder  of  this  report  is  divided  into  four  major 
sections: 

Theoretical  Background  -  a  description  of  the  theory  used  to 
develop  ship  response  time  histories  in  random  waves.  Expressions 
are  provided  to  obtain  responses  at  various  locations  on  the  ship. 
The  transformation  from  earth  coordinate  system  to  ship  coordinate 
system  for  forces  is  described. 

Computer  System  -  a  description  of  the  hardware  and  software 
used  in  the  development/execution  of  the  programs; 

Simulation  Time  History  Program,  STH  -  a  description  of  the 
program  used  to  generate  wave  time  histories  and  associated 
six-degree-of -freedom  (origin)  ship  response  time  histories.  Input 
and  output  for  the  STH  program  is  discussed.  An  example  of  running 
the  STH  program  is  provided;  and 

Access  Time  History  Program,  ACTH  -  a  description  of  the  program 
used  to  compute  ship  response  time  histories  at  various  locations  on 
the  ship  from  the  data  base  of  STH  origin  motion  time  histories. 
Input  and  output  for  the  ACTH  program  is  discussed.  An  example  of 
running  the  ACTH  program  is  provided. 

This  manual  was  written  with  the  intention  of  providing  simple, 
easy-to-use  methods  for  generating  ship  response  time  histories  in 
random  seas.  A  necessary  requirement  is  the  availability  of  SMP84 
Origin  transfer  functions  for  specific  ships.  Although  time 
histories  can  be  used  for  a  wide  range  of  purposes  and  each  user's 
need  may  be  different,  careful  reading  and  understanding  of  the 
illustrated  examples  is  considered  the  fastest  method  for  learning 
how  to  utilize  the  software  tools. 

THEORETICAL  BACKGROUND 

The  theory  necessary  to  develop  ship  response  time  histories  in 
random  seas  is  outlined  in  the  following  sections.  These  response 
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time  histories  are  generated  using  regular  wave  response  transfer 

functions  obtained  from  the  Navy  Standard  Ship  Motion  Program, 
1  2 

SMP .  '  A  basic  set  of  six  response  time  histories  is  generated  at 
the  longitudinal  center  of  gravity  of  the  ship  by  the  Simulation  Time 
History  Program,  STH.  This  base  set  of  time  histories  is  then  used 
to  generate  response  time  histories  at  other  locations  on  the  ship  by 
the  Access  Time  History  Program,  ACTH. 

SHIP  RESPONSES  IN  REGULAR  WAVES 

There  are  a  basic  set  of  six  ship  responses  (surge,  sway,  heave, 
roll,  pitch,  and  yaw)  at  the  ship's  longitudinal  center  of  gravity 
(LCG)  from  which  motions  at  all  other  locations  on  the  ship  can  be 
developed.  These  responses  are  referred  to  as  the  six  degrees  of 
freedom  (6D0F) . 

O 

The  strip  theory  of  Salvesen,  Tuck,  and  Faltinsen  is  used  to 
obtain  the  6D0F  responses  for  a  ship  advancing  at  constant  forward 
speed  with  arbitrary  heading  in  regular  sinusoidal  waves  of  unit 
amplitude.  The  theory  of  Reference  8  is  implemented  in  the  Navy 
Standard  Ship  Motion  Computer  Program  SMP811  and  the  subsequently 
updated  version,  SMP84 . 2 

The  6 DOF  responses  are  assumed  to  be  small,  linear,  and  harmonic 
with  respect  to  a  wave  whose  maximum  elevation  is  located  at  the 
origin  of  the  x,y,z  coordinate  system  shown  in  Fig.  1.  This 
right-handed  coordinate  system  is  moving  at  the  constant  mean  forward 
speed  with  the  origin  lying  in  the  undisturbed  free  surface  and 
located  at  the  LCG. 

It  should  be  noted  that  a  ship  advancing  through  regular  waves 
responds  to  the  wave  frequency  of  encounter  given  by, 

wE  «  |  u  -  (w2V/g)  cos  (fi)  |  (1) 

where  v  is  the  mean  forward  speed  of  the  ship,  ^  is  the  heading 
angle,  and  w  is  the  wave  frequency.  The  absolute  value  is  taken  to 
avoid  using  negative  encounter  frequencies.  The  definition  of 
heading  angle  is  shown  in  Fig.  2  for  waves  advancing  from  the 
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starboard  side  of  the  ship. 

Although  the  6D0F  ship  responses  are  assumed  to  be  linear, 

experiments  with  ship  models  in  regular  waves,  as  reported  in 

Reference  6,  show  that  the  roll  response  exhibits  nonlinear  behavior 

with  increasing  wave  amplitude.  In  addition,  the  experiments  of 

Reference  9  show  that  the  roll  damping  coefficient  of  the  equations 

of  motion  at  the  natural  roll  frequency  tend  to  be  nonlinear  with 

increasing  roll  angle.  This  nonlinear  behavior  of  roll  is  treated  in 
1  2 

SMP  '  through  modifications  made  to  the  roll  damping  coefficient 
which  is  assumed  to  be  a  function  of  mean  roll  angle.  SMP  computes 
the  lateral  responses  (sway,  roll,  and  yaw)  for  a  set  of  eight  mean 
roll  angles,  0.5,  1,  2.5,  5,  10,  15,  25,  and  40  degrees. 

The  6D0F  ship  responses  to  regular  sine  waves  are  defined  as 
ship  origin  transfer  functions  which  vary  with  wave  frequency,  ship 
speed,  ship  heading  relative  to  the  waves,  and,  in  the  case  of  the 
lateral  responses,  mean  roll  angle.  The  SMP84  program  outputs  a  file 
of  the  6 DOF  origin  transfer  functions  (amplitude  and  phase)  with 
respect  to  regular  waves  called  the  Origin  file.  This  file  is  used 
to  provide  a  data  base  of  transfer  functions  which  are  used  in  the 
generation  of  time  histories  of  ship  responses  in  random  seas  which 
is  discussed  in  a  latter  section. 

SHIP  RESPONSES  IN  RANDOM  SEAS 

The  SMP 8 4  program  principally  predicts  the  translational  and 
angular  ship  statistical  responses  in  random  (irregular)  seas  using 
calculations  performed  in  the  frequency  domain.  Two  basic 
assumptions  are  used  in  making  ship  motion  predictions  in  random 
seas10,  namely: 

1.  The  random  sea  waves  can  be  represented  as  a  sum  of  simple 
sine  waves  whose  amplitudes  are  obtained  from  specified  wave  spectral 
densities  and  whose  phases  are  random  with  a  uniform  distribution; 
and 

2.  The  responses  of  a  ship  to  the  random  sea  waves  can  be 
obtained  as  the  sum  of  the  ship  responses  to  the  individual  sine 
waves  that  compose  the  random  sea. 
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The  instantaneous  wave  elevations  of  the  random  seas  have  a 
narrow-banded  Gaussian  distribution  with  zero  mean.  The  wave  single 
amplitudes  (1/2  the  peak  to  trough  values)  have  a  Rayleigh 
distribution. 

The  responses  of  the  ship  in  random  seas  represent  a  linear 
tranf ormation  applied  to  the  Gaussian  random  waves.  Thus  the 
instantaneous  ship  responses  are  assumed  to  be  Gaussian  with  zero 
mean  and  the  ship  response  single  amplitudes  are  assumed  to  have  a 
Rayleigh  distribution. 

Table  1  provides  a  set  of  single  amplitude  Rayleigh  statistical 
constants  which  can  be  applied  to  either  a  wave  or  ship  response 
standard  deviation  to  obtain  estimates  of  various  amplitudes  such  as 
the  average  of  the  one-third  highest  amplitudes  (significant  value) , 
the  highest  expected  amplitude  in  200  cycles,  etc. 

The  roll  single  amplitudes  are  assumed  to  have  an  underlying 
Rayleigh  distribution  which  is  modified  by  the  nonlinear  behavior  of 
roll  damping  with  increasing  roll  amplitude.  SMP84  provides  roll 
predictions  in  random  seas  for  a  user-specified  Rayleigh  statistic, 
such  as  significant  single  amplitude,  see  Table  l,  and  a  specified 
significant  wave  height  (average  of  the  one-third  highest  wave  double 
amplitudes).  The  user  is  referred  to  the  SMP81  user's  manual1  for 
more  details  concerning  the  method  used  to  obtain  roll  predictions  in 
random  seas. 

SEAWAY  DESCRIPTION 

A  two-parameter  Bretschneider  wave  spectral  model  is  used  to 
define  the  frequency  content  of  the  random  sea  waves.  The  two 
parameters  are,  by  definition,  significant  wave  height,  t i/3 ' 
modal  (peak)  wave  period,  Tq.  The  wave  spectral  density,  S^(o>),  is 
defined  as: 

Sj.(w)  -  Au“5  •  exp(-BoT4)  in  m2-s  or  ft2*s  ,  (2) 

where , 

A  -  487.062 6  •  ( fw) 1/3/T0  in  m2 • s  or  ft2-s  ,  and  (3) 
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B  -  1948.2444/Tq4  in  s"4  ,  (4) 

and  u  is  the  wave  frequency  in  radians  per  second. 

It  should  be  noted  that  the  area  under  the  spectrum  is  equal  to 
the  variance  or  mean  square  value  of  the  waves .  The  square  root  of 
the  variance  is  called  the  standard  deviation.  The  significant  wave 
height  is  defined  as  four  times  the  standard  deviation.  The  wave 
spectral  shape  is  a  function  of  the  modal  wave  period.  Examples  of 
the  wave  spectra  are  shown  in  Fig.  3  for  modal  wave  periods  of  7,  11 
and  21  seconds.  Note  that  the  same  significant  wave  height  value  of 
12  feet  is  used  for  each  of  the  three  wave  spectra  shown. 

The  distribution  of  wave  spectral  energy  as  a  function  of 
heading  with  respect  to  the  ship  is  considered  either  to  be 
unidirectional  (longcrested)  or  spread  ±  90  degrees  about  a 
predominant  direction  (short crested) .  The  shortcrested  wave  spectral 
density,  s^(cj,v),  is  defined  as: 

S  ^  (w,  v)  •  b2(v-a0  •  Sj.(w)  ,  (5) 

where  S,.(«)  is  the  longcrested  wave  spectral  density  defined  in  Eq. 

>  2 
2.  The  cosine-squared  spreading  function,  B  ,  used  to  spread  the 

wave  energy  from  longcrested  to  shortcrested  seas,  is  defined  as: 

B2  (v-n)  »  (2/ir)  •  cos2  ( v-n )  .  (6) 

The  heading  m  in  the  case  of  shortcrested  seas  represents  the 
predominant  heading  containing  the  principal  amount  of  wave  energy. 
The  heading  angle  v  represents  one  of  the  component  heading  angles. 

SMP84  uses  a  15-degree  heading  increment  to  define  v.  Thus, 
there  are  thirteen  component  headings,  six  on  either  side  of  the 
predominant  heading  angle.  The  cosine-squared  spreading  function  for 
each  of  these  component  headings  is: 
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Xk+dX/2 

Bk2  ■  (2 wj*  cos2  (Xk)dX  #  (7) 

Xk-dX/2 

where  xk  -  -  M  is  the  wave  direction  relative  to  the  predominant 

direction.  Thus, 

Bk2  -  1/6  cos2  (xk)  ,  (8) 

where  Xk  -  krr/12,  k  ■  -6,6. 

An  example  of  the  shortcresting  method  is  shown  in  Fig.  4  for  an 
output  predominant  heading  angle  of  45  degrees.  Note  that  the 
heading  convention  for  computational  work  in  SMP84,  as  defined  in 
Fig.  2,  defines  180  degrees  to  be  head  seas,  90  degrees  as  starboard 
beam  seas,  and  zero  degrees  as  following  seas.  The  heading  angles 
presented  in  the  SMP84  output  however  differ  from  the  internal 
computational  heading  angle  by  180  degrees,  i.e., 

^output  180  ^computational  *  ^ 

Thus,  for  output  purposes,  zero  degrees  represents  head  seas,  90 
degrees  represents  starboard  beam  seas  (unchanged) ,  and  180  degrees 
represents  following  seas.  This  output  heading  convention  was 
selected  to  bring  consistency  between  program  output  and  conventions 
employed  by  the  ship  and  aircraft  operator  communities. 

DEFINITION  OF  TIME  HISTORIES 

Time  histories  in  random  seas  are  defined  as  time  series  sampled 
at  equal  time  intervals  for  a  period  of  time  sufficiently  long  to 
provide  stable  statistical  results.  Typically  this  time  duration  is 
15  minutes  or  longer.  These  time  histories  contain  approximately  100 
cycles  which  have  varying  amplitudes  and  periods.  The  amplitudes 
follow  a  Rayleigh  distribution. 


8 


Wave  Tima  Histories  at  the  Origin 

Time  histories  of  encountered  waves  located  at  the  origin  of  the 
fixed  earth  coordinate  system  which  is  moving  at  constant  mean 
forward  speed  are  computed  for  either  longcrested  or  shortcrested 

3 

seas  using  the  method  of  Zaraick  . 

The  longcrested  (unidirectional)  wave  time  history,  fLC(t),  is 
defined  as: 


N 

fLC(t)  “  (fk}  C°6  (<JEkfc  +  V  >  '  (10) 

k-1 


where  «E)c  is  the  encountered  wave  frequency  defined  in  Eq.  l  for  wave 
frequency  and  is  a  random  phase  angle  with  uniform  distribution 
at  wave  frequency 

The  wave  amplitude,  at  wave  frequency  is  defined  as 


u^+du/2 


fv  -  I 


w^-dw/2 


(«)d u  ) 


where  8^( w)  is  the  wave  spectral  density  defined  in  Eq.  2. 

The  number  of  frequencies,  N,  used  to  compute  the  wave  time 
history  should  be  large  in  order  to  obtain  an  representative  Rayleigh 
distribution  of  single  amplitudes.  The  value  of  N  used  in  the 
Simulation  Time  History  Program,  STH,  is  150. 

The  range  of  wave  frequencies  is  determined  in  SMP84  when  the 
origin  transfer  function  file  is  generated.  The  frequency  increment 
used  to  generate  the  wave  time  history  is: 


“W  *  "min)/(N-1) 


where  u _  and  w  .  are  the  maximum  and  minimum  wave  frequencies  used 

max  min 
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in  SMP84  for  a  particular  ship.  SMP84  uses  different  values  for  wjnax 
depending  on  the  ship's  roll  period. 

For  most  headings  and  ship  speeds,  the  encounter  frequencies 
computed  by  Eq.  1  and  used  in  Eq.  10  are  incommensurate.  This  is  an 
important  requirement  which  prevents  the  longcrested  time  histories 
from  repeating  after  a  period  of  time.  This  requirement  is  violated 
in  beam  seas  or  for  a  ship  speed  of  zero  knots.  For  this  situation, 
the  wave  frequencies  are  adjusted  slightly  using  a  random  frequency 
increment  to  guarantee  that  they  are  incommensurate  as : 

«k  -  Wk  -  (du/2)  •  (1  -  2-RANDk)  (13) 

where  RANDk  is  a  random  number  selected  at  frequency  uk  with  a  value 
between  0  and  l  and  which  has  a  uniform  distribution. 

The  shortcrested  sea  condition  spreads  the  wave  directions  ±90 
degrees  from  a  predominant  wave  direction  relative  to  the  ship.  The 
shortcrested  wave  time  history,  fgc(t),  is  defined  as: 

M  N 

fSC(t)  -  23  2  {  (bJ  •  V  008  '“EkC  +  yl*)  >  '  <14) 

j-1  k-1 

where  b^  is  a  factor  for  angular  spreading  of  the  wave  energy 
(assumed  independent  of  wave  frequency) .  A  cosine-squared  function 
is  used  to  spread  the  wave  energy  from  longcrested  to  shortcrested 
seas,  i.e., 

Xj+dX/2 

bj  ■  {  (2/r)  cos2  (X^)dX  }**  ,  (15) 

Xj-d  /2 

where  is  the  wave  direction  relative  to  the  predominant  direction. 
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Origin  Motion  Time  Histories 

Time  histories  of  ship  responses  to  longcrested  seas,  rLC(t), 
are  defined  as: 


rLC(t) 


N 


2  *  (RAk 
k 


V  COS  (wEkt  +  *k  +  ePk>  > 


(16) 


where  is  the  amplitude  of  the  ship  response  transfer  function  at 
the  wave  frequency  of  encounter,  wEk<  The  phase  angles  epk  refer  to 
the  phase  of  the  ship  response  with  respect  to  the  maximum  elevation 
at  the  origin  of  the  x,y,z  coordinate  system  shown  in  Pig.  l. 

Note  that  velocities  and  accelerations  of  the  ship  responses 
computed  in  the  ACTH  program  are  obtained  by  digital  differentiation 
in  the  time  domain. 


Motions  at  a  Point  Time  Histories 

The  translational  displacement  time  histories  of  any  point  on 
the  ship  (x*,  y* ,  z*)  are  obtained  as 


EL0(t) 


x  ( t ) 


-  y*  sin  \Ht)  ♦  z*  Bin  0(t) 

+  x*  [cos  \Mt)  +  cos  0( 1)  -  2] 


ELA(t) 


y(t) 


-  z*  sin  d(t)  ♦  x*  sin  \Mt) 

+  y  [cos  $(t)  +  cos  \Mt)  -  2) 


ELyU) 


*  (t) 


-  x*  sin  6  (t)  +  y *  sin  d(t) 

♦  z  [cos  6( t)  ♦  cos  $(t)  -  2) 


(17) 


(18) 


(19) 


where  elq,  ela>  and  ELV  are  the  ship  displacements  in  the 
longitudinal,  lateral,  and  vertical  directions,  and  x,  y,  z,  4>,  6, 
and  \ff  are  surge,  sway,  heave,  roll,  pitch,  and  yaw,  respectively. 


Wave  Time  Histories  at  a  Point 

Time  histories  of  encountered  waves  at  any  point  on  the  ship 


ll 


(20) 


(x*,  y*)  in  longcrested  seas  are  obtained  as: 

N 

f*LC(t)  *  £  <  fk  008  “lEkt  ‘ 
k«l 

K (x  cos  n  +  y  sin  n)  +  }  * 

2 

where  K  is  the  wave  number  defined  as  K  »  w  /g,  and  is  the 
computational  heading  angle. 

*  * 

Encountered  wave  time  histories  at  point  (x  ,  y  )  in 
shortcrested  seas  are  obtained  as: 

M  N 

f‘sc(t)  *  I]  2  {  (bj  '  fk>  C0S  '“Ejk1  - 

j=l  k*l 

K (x*COS  Mj  +  y  sin  Mj)  +  7jk]  }  •  (21) 

Relative  Motion  Time  Histories 

The  relative  motion  of  any  point  on  the  ship  (x  ,  y  )  is 
represented  by: 

RM(t)  -  EL^t)  -  f*(t)  ,  (22) 

where  BLV  is  the  absolute  vertical  displacement  and  f*  is  the 
undisturbed  wave  elevation  at  that  point. 

Ship  System  Force  Time  Histories 

There  are  two  types  of  forces  applied  to  a  body  at  any  point 
(x* /  y*#  z * )  on  the  ship.  The  first  type  consists  of  the  inertia 
forces  due  to  the  accelerations  of  the  ship  and  the  second  type  is 
due  to  the  acceleration  of  gravity.  No  friction  forces  or  wind  drag 
forces  are  computed  in  the  Access  Time  History  Program,  ACTH. 

The  forces  per  unit  mass  in  the  fixed  earth  coordinate  system 
are  defined  as 
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FLQ(t) 

-  -ELfi(t)  , 

(23) 

FLA(t) 

-  -ELx(t)  , 

(24) 

FI*v(t' 

-  “EL^(t)  -  1  , 

(25) 

where  EL^,  EL^,  and  EL^  are  the  earth  system  accelerations  in  the 
longitudinal,  lateral,  and  vertical  directions,  and  1  represents  the 
acceleration  due  to  gravity  (i.e.,  lg) .  Note  that  the  inertia  forces 
are  the  negative  of  the  ship  accelerations. 

The  forces  are  more  appropriately  applied  in  the  ship  coordinate 
system  where  the  longitudinal  and  lateral  forces  are  parallel  to  the 
deck  and  the  vertical  force  is  normal  to  the  deck.  The  ship  system 
force  time  histories  are  obtained  from  the  fixed  Earth  axis  forces 
using  an  angular  rotation  matrix  as: 


SL0(t) 

SLA(t) 

S!V(ti 


Mll(t) 

M21<t) 

*21™ 


*12™ 

M22(t) 

M32(t) 


Mi3(t) 

H23(t) 

M33(t) 


FL0(t) 
FLA(t)  , 

FVt) 


(26) 


where  SLQ  and  SLA  are  the  ship  system  forces  in  the  longitudinal  and 
lateral  directions  parallel  to  the  deck,  and  SLy  is  the  ship  system 
force  normal  to  the  deck.  The  angular  rotation  matrix  elements 
are  defined  as: 


Mli(t)  «  cos  6(t)  cos  0(t)  ,  (27) 

M12(t)  -  cos  6(t)  sin  <p(t)  ,  (28) 

M13(t)  -  -sin  6(t)  ,  (29) 

M2 1 ( t )  ■  -cos  4>(t)  sin  0(t)  +  sin  $(t)  sin  6(t)  cos  (£/(t)  ,  (30) 

M22(t)  -  cos  $(t)  cos  <//(t)  +  sin  ^(t)  sin  0(t)  sin  0(t)  ,  (31) 

M23(t)  -  sin  4(t)  cos  0(t)  ,  (32) 

M31  (t)  -  sin  ^(t)  sin  <//{t)  +  cos  ^(t)  sin  0(t)  cos  <p(t)  ,  (33) 

M32(t)  ■  -sin  ^(t)  cos  ^(t)  +  cos  sin  0(t)  sin  ^(t)  ,  (34) 

M33(t)  -  cos  4>(t)  cos  0 (t )  ,  (35) 
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where  the  rotation  is  in  the  order  of  first  yaw,  then  pitch,  and 
finally  roll. 

COMPUTER  SYSTEM 

The  Simulation  Time  History  Program,  STH,  and  the  Access  Time 
History  Computer  Program,  ACTH,  were  developed  on  a  COMPAQ  386 
Personal  Computer  (PC)  running  at  a  machine  clock  speed  of  20  MHz. 
This  computer  is  compatible  with  the  IBM  Personal  Computers.  The 
operating  system  used  was  Microsoft  Disk  Operating  System  (MS-DOS) , 
Version  3. 31. 11  The  computer  had  an  INTEL  80387  co-processor 
installed  to  provide  increased  speed  for  floating  point  calculations. 

Both  the  STH  and  ACTH  programs  were  written  in  FORTRAN  77  using 
the  Lahey  Fortran  Compiler.  The  only  special  compiler  option  used 
was  to  make  integer  and  logical  variables  four  bytes  each.  The  IBM 
Link  program  provided  with  the  MS-DOS  operating  system  was  used  to 
link  the  compiled  versions  of  the  STH  and  ACTH  programs  to  obtain 
executable  program  files. 

The  STH  and  ACTH  programs  use  a  large  number  of  files  when  they 
are  executed.  Fortunately,  MS-DOS  supports  the  use  of  directories, 
paths,  and  file  names  and  extensions  which  allow  the  user  to  organize 
these  files  in  a  meaningful  way.  Generally,  PC's  are  purchased  with 
hard  disks  having  a  minimum  capacity  of  21  Mbytes.  The  MS-DOS 
operating  system  allows  you  to  easily  divide  a  hard  disk  into 
subsections  called  directories.  Each  directory  is  given  its  own 
unique  name  by  the  user.  A  path  is  defined  as  the  series  of  commands 
and  directions  to  the  particular  section  of  the  disk  or  directory 
where  a  particular  set  of  files  is  stored.  Each  file  can  have  a  name 
containing  up  to  eight  characters  and  an  extension  containing  up  to 
three  characters. 

The  organization  of  directories  and  files  used  to  develop  the 
STH  and  ACTH  programs  is  shown  in  Fig.  5.  Files  in  this  figure  are 
denoted  by  extensions  (e.g.,  .EXE)  while  directories  and 
subdirectories  carry  no  extensions.  Details  concerning  the  specific 
files  used  by  the  STH  and  ACTH  programs  are  discussed  in  the  latter 
sections  of  this  report  which  describe  these  programs. 
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The  hard  disk  on  the  COMPAQ  386  where  these  programs  were 
developed  had  *  42-Mbyte  capacity  which  was  divided  into  two  parts 
called  volumes  01  drives  in  MS-DOS,  each  with  a  21-Mbyte  capacity. 
Each  volume  has  ics  own  drive  letter  where  c  is  the  drive  letter  for 
the  first  21-Mbyte  section  and  D  is  the  drive  letter  for  the  second 
21-Mbyte  section.  The  first  directory  on  a  drive  is  called  the  ROOT 
directory.  All  other  directories  on  the  drive  are  called 
subdirectories.  Note  that  subdirectories  may  also  contain  their  own 
subdirectories.  Refer  to  the  COMPAQ  MS-DOS  Reference  Guide11  to 
obtain  further  information  about  directories  and  file  naming 
conventions. 


SIMULATION  TIME  HISTORY  PROGRAM,  STH 

The  Simulation  Time  History  Program,  STH,  was  developed  to 
provide  a  data  base  of  six-degrees-of-freedom  (6D0F)  ship  response 
time  histories  (surge,  sway,  heave,  roll,  pitch,  and  yaw)  in 
longcrested  and  shortcrested  random  seas.  The  STH  program  uses  a 
file  of  6D0F  origin  transfer  functions  output  from  the  Navy  Standard 
Ship  Motion  Program,  SMP84,  to  generate  the  6DOF  ship  response  time 
histories.  This  6DOF  time  history  data  base  is  then  used  by  the 
Access  Time  History  Program,  ACTH,  which  is  described  in  a  later 
section  of  this  report,  to  generate  time  histories  for  additional 
ship  responses  at  various  user-specified  locations  on  the  ship.  The 
STH  program  takes  a  long  time  to  execute,  approximately  43  minutes 
for  a  20-minute  simulation  run  done  at  3  samples  per  second.  By 
contrast,  the  ACTH  program  executes  very  quickly,  approximately  22 
seconds  to  use  the  same  20-minute  STH  run  to  generate  additional  time 
histories. 

In  order  to  run  the  STH  program  you  will  need  to  set  up  various 
directories  on  your  hard  disk(s)  to  contain  the  executable  program 
file,  input  files,  and  output  time  history  files  for  the  STH  program. 
An  example  of  this  setup  is  shown  in  Fig.  5.  The  STH  executable 
file,  identified  by  the  "EXE"  extension,  and  input  file,  identified 
by  the  "INP"  extension,  are  contained  in  the  STH  directory  on  the  C 
drive.  The  STH  output  files,  identified  by  the  "DAT"  and  "TEX" 
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extensions,  are  located  on  the  D  drive  in  a  subdirectory  called 
"SODD965A"  under  a  directory  called  "STHDATA".  The  example  ship  name 
used  for  running  the  STH  program  is  the  "DD965"  which  is  part  of  the 
subdirectory  name.  The  letters  "SO"  in  the  subdirectory  name  are 
fixed  and  are  shorthand  for  "simulation  time  history  at  the  origin". 
The  letter  "A"  following  the  ship  name  identifies  a  hull  variant.  A 
summary  of  files  used  by  the  STH  program  is  provided  in  Table  2. 

SMP84  will  output  different  origin  transfer  functions  depending 
on  whether  a  ship  is  untrimmed,  trimmed,  has  a  different  appendage 
suite,  uses  passive  fins  or  active  fin  stabilization,  etc.  These 
variations  of  the  same  ship  are  called  hull  variants  and  are  assigned 
different  variant  letters.  A,  B,  C,  etc.  The  SMP84  origin  transfer 
function  file  for  variant  A  of  the  DD965  ship,  identified  by  the 
"ORG"  extension,  is  located  on  the  D  drive  in  a  subdirectory  called 
"DD965"  under  a  directory  called  "SMPDATA" . 

Both  the  STH  and  ACTH  programs  were  designed  to  run  in  a  BATCH 
mode.  The  information  required  to  run  each  program  is  contained  in  a 
text  file  with  an  "INP"  extension  in  the  STH  directory  which  the  user 
edits  using  a  screen  editor  (not  provided)  prior  to  running  the 
programs.  Both  progams  can  then  generate  a  number  of  origin  or 
response  time  histories  during  one  execution  and  thus  may  be  left  to 
run  overnight.  There  are  commercially  available  programs  for  PCs 
that  allow  multi-tasking  which  would  allow  the  STH  and  ACTH  programs 
to  run  in  the  background  during  the  day.  Note  that  the  ACTH  program 
requires  origin  time  histories  previously  generated  by  the  STH 
program . 

STH  INPUT  DESCRIPTION 

The  input  required  to  run  the  STH  program  is  contained  in  a  text 
(ASCII)  file  called  STH. INP  in  the  STH  directory.  There  are  10  sets 
of  information,  called  Data  Sets,  contained  in  this  file.  Each  data 
set  may  contain  one  or  more  lines  of  information.  The  method  used  to 
describe  each  data  set  is  to  list  each  line,  its  FORTRAN  format,  and 
the  variable (s)  contained  on  it.  A  summary  of  the  10  STH  data  sets 
is  provided  in  Table  3.  An  example  of  the  STH. INP  file  is  provided 
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in  Table  4.  Note  that  comments  may  be  added  to  the  STH.INP  input 
file  after  Data  Set  10  to  provide  assistance  in  identifying  the 
information  on  each  data  set  when  making  changes. 


Data  Set  1.  SMP  Data  Path 
One  Line  -  Format  (A) 

(1)  SMPDATAS ,  alphanumeric,  columns  1-80,  path  indicating  where 
the  SMP84  origin  transfer  function  file  can  be  found. 

Data  Set  2,  STH  Data  Path 
One  Line  -  Format  (A) 

(1)  STHDATAS,  alphanumeric,  columns  1-80,  path  indicating  where 
the  origin  time  history  files  output  from  the  STH  program 
will  be  saved. 

Pfl.ta  Set  Ship  Type 

One  Line  -  Format  (A) 

(1)  SHIPTYPS ,  alphanumeric,  columns  1-8,  identifies  ship  type. 

A  convention  used  when  running  SMP84  is  to  identify  each  ship  by 
its  type.  This  name  is  used  as  a  directory  name  where  the  SMP84 
input  files  for  ships  of  this  type  are  stored. 

Data  Set  4,  Ship  Name 

One  Line  -  Format  (A) 

(1)  SHIPS,  alphanumeric,  columns  1-5,  identifies  ship  name. 

Data  Set  5.  Hull  Variant 
One  Ling  -  Format  (A) 

(1)  VARIANTS,  alphanumeric,  column  1,  identifies  hull  variant. 
The  hull  variant  is  used  to  distinguish  between  different  SMP84 
origin  transfer  function  files  which  may  have  been  generated  for  the 
same  ship.  For  example  the  ship  may  have  been  run  in  SMP84  for 
different  displacements,  trims,  appendage  suites,  or  passive/active 
fin  stabilizers. 
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Data  Set  $.  Cycle  No 

One  Line  -  Format  (A) 

(1)  CYCLES,  alphanumeric,  columns  1-2,  cycle  number. 

A  cyle  number  is  assigned  to  the  SMP84  input  and  text  output 
files  when  SMP84  is  run  for  a  given  ship.  This  cycle  number  is  not 
assigned  however  to  SMP84  data  files,  specifically  the  origin 
transfer  function  file. 

Data  Set  7.  Units 

One  Line  -  Format  (A) 

(1)  SUNITS,  alphanumeric,  columns  1-6,  the  desired  displacement 
time  history  engineering  units  (feet  or  meters). 

SMP84  can  be  run  for  a  given  ship  using  either  feet  or  meters. 
The  user  can  specify  the  engineering  units  to  be  used  for  the  STH 
origin  time  histories  which  will  overide  the  units  used  in  the  SMP84 
run.  Only  the  displacement  motions,  surge,  sway,  and  heave,  are 
affected  by  the  selection  of  different  units.  Note  that  the  units 
identified  in  this  data  set  apply  to  the  information  contained  in  the 
succeeding  data  sets  for  the  STH  program  as  well  as  the  data  sets  for 
the  ACTH  program. 

Pfltfl  Set  8,.  Title 

One  Lins  -  Format  (A) 

(1)  TRIALS,  alphanumeric,  columns  1-40,  the  ship  title. 

Data  Set  9.  Wave  Point  Input 
Fim-Une  -  FORMAT  (A) 

No  variables,  blank  line  used  for  spacing. 

Second  Line  -  Format  (18X,I5) 

(1)  NWPOINT,  integer,  columns  19-23,  number  of  wave  points. 
NWPOIHT  is  set  to  zero  if  you  do  not  want  to  compute  relative 
motion  time  histories  in  the  ACTH  program.  Note,  however,  that  if 
relative  motion  is  desired  at  a  later  date,  the  user  must  rerun  the 
STH  program  and  include  the  wave  points  where  the  relative  motion  is 
to  be  computed.  Lines  3-5  are  always  included  even  if  NWPOINT-O. 
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Third  Line  -  FORMAT  (A) 

No  variables,  blank  line  used  for  spacing. 

Fourth  Line  -  FORMAT  (A) 

No  variables,  comment  used  to  identify  wave  point  table. 

Fifth  Line  -  format  (A) 

No  variables,  comment  identifies  columns  for  wave  point  table. 
NOTE:  The  next  line  is  included  only  if  NWPOINT  >  0.  There  is  one 
line  for  each  wave  point. 

Sixth  Line  -  Format  (14 , 3F8 . 1, 3X,A20) 

(1)  IWPNT,  integer,  columns  1-4,  wave  point  number. 

(2)  WPNTXLOC,  floating  point,  columns  5-12,  x-coordinate  of  wave 
point  (station  number,  where  0*Forward  Perpendicular) . 

(3)  WPNTYLOC ,  floating  point,  columns  13-20,  y-coordinate  of 
wave  point  (positive  to  port  from  canterline) . 

(4)  WPNTZLOC,  floating  point,  columns  21-28,  z-coordinate  of 
wave  point  (positive  up  from  baseline) . 

(5)  WPTNAMES ,  alphanumeric,  columns  29-48,  the  name  of  the  wave 
point. 

The  reference  system  used  to  input  locations  on  he  ship  in  the 
STH  and  ACTH  programs  is  shown  in  Fig.  6.  This  input  reference 
system  is  identical  to  the  input  system  used  in  the  Navy  Standard 
Ship  Motion  program,  SMP81. ^ 

Data  Set  10.  Run  Input 

first  Ling  -  FORMAT  (A) 

No  variables,  blank  line  used  for  spacing. 

Second  Line  -  Free  Format 

(1)  NRUNS,  integer,  number  of  STK  runs 
NOTE:  The  next  line  is  repeated  tor  each  STH  run. 

Third  Line  -  Free  Format  (variables  separated  by  commas) 

(1)  RUNNUMBER,  integer,  the  run  number. 

(2)  SAMPLERATE,  floating  point,  number  of  samples  per  second. 

(3)  TSTART,  floating  point,  start  time  in  seconds. 

(4)  TEND,  floating  point,  stop  time  in  seconds. 

(5)  SPEED,  floating  point,  ship  speed  in  knots. 
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(6)  HEAD,  floating  point,  SMP  output  heading  in  degrees. 

(0°«head  seas,  90°»beam  seas,  I80°«following  seas) 

(7)  SIGWH,  floating  point,  significant  wave  height  in  feet  or 
meters. 

(8)  TMODAL,  floating  point,  modal  wave  period  in  seconds. 

(9)  STATIS,  floating  point,  statistic  used  for  roll  iteration  in 
irregular  seas.  For  example,  the  statistic  used  for  the 
significant  roll  single  amplitude  is  2  (twice  the  standard 
deviation  for  roll) . 

(10)  SEATYPES,  alphanumeric,  seaway  type. 

The  seaway  type  is  identified  as  LC  (longcrested  seas)  or 
SC  (shortcrested  seas) .  The  seaway  type  can  be  enclosed  in 
double  quotes  but  it  is  not  necessary. 

The  selection  of  sample  rate  affects  the  resolution  of  the  STH 
time  histories  as  well  as  the  amount  of  computer  time  required  to  run 
the  STH  program.  For  the  majority  of  runs  it  is  recommended  that  a 
sample  rate  of  2  samples  per  second  be  used.  However,  for  high 
speeds  in  bow  to  head  seas,  encounter  periods  as  low  as  one  second  or 
less  may  be  computed  which  will  require  increasing  the  sample  rate  to 
3  samples  per  second  to  avoid  frequency  aliasing. 

STH  OUTPUT  DESCRIPTION 

Information  describing  each  STH  run  is  displayed  on  the 
computer's  screen.  This  information  consists  of: 

1.  STH  program  identification; 

2.  Date  and  time; 

3.  Ship  identification  and  particulars,  which  include  desired 
engineering  units  (feet  or  meters),  gravity,  ship  length, 
longitudinal  center  of  gravity,  LCG,  (referenced  from  the 
Forward  Perpendicular) ,  and  the  distance  from  the  ship 
baseline  to  the  waterline; 

4.  STH  run  identification  which  includes  run  number,  comment, 
and  sample  rate.  The  run  conditions  are  identified,  which 
include  ship  speed,  heading,  seaway  type  (longcrested  or 
shortcrested) ,  significant  wave  height,  modal  wave  period, 
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the  statistic  used  for  roll  iteration,  and  the  number  of 
channels; 

5.  Listing  of  wave  point  locations  (required  for  relative  motion 
calculations  in  the  ACTH  program) ; 

6.  Listing  of  first  20  seconds  of  wave  height  at  the  LC6  and  the 
six  degree  of  freedom  responses  (surge,  sway,  heave,  roll, 
pitch,  and  yaw) ;  (Note  that  the  time  histories  for  wave 
height  at  wave  point  locations  are  computed  (optionally)  but 
not  shown  on  the  screen.  The  screen  is  then  blanked  out 
until  the  run  finishes] 

7.  Listing  of  the  statistical  results  obtained  from  the  time 
histories  for  wave  height  (LCG) ,  the  6D0F  responses,  and  wave 
heights  at  wave  point  locations;  [These  statistics  include 
the  mean,  standard  deviation,  maximum  and  minimum  values  for 
each  channel.  The  frequency  domain  predictions  for  the 
standard  deviation  for  each  channel  are  provided  in  the  last 
column. ] 

8.  The  elapsed  computer  time  for  the  particular  STH  run. 

The  information  displayed  on  the  screen  is  saved  in  a  text 
(ASCII)  file  for  each  run.  This  file  is  called  SRN.TEX  where  N  is 
the  run  number.  The  SRN.TEX  file  is  stored  in  a  ship  subdirectory 
under  the  STHDATA  directory,  e.g.,  D:\STHDATA\SODD965A.  An  example 
of  this  file  for  STH  run  number  3  is  shown  in  Table  5. 

The  STH  time  histories  are  written  to  a  standard  FORTRAN 
sequential  binary  data  file  called  SRN.DAT  which  is  stored  in  the 
same  subdirectory  as  the  SRN.TEX  file.  The  first  record  in  this  file 
contains  two  integer  variables,  the  total  number  of  samples  and  the 
number  of  channels.  The  remaining  records,  one  for  each  sample, 
contain  the  time  histories  for  all  the  channels  in  the  desired 
engineering  units. 

A  separate  text  file  called  STHL0G.TEX  is  updated  for  each  run. 
This  file  contains  a  summary  of  the  STH  runs  that  have  been  made. 
The  summary  consists  of  a  separate  line  for  each  run  that  contains 
the  run  number,  data  format  type  (binary) ,  simulation  run  time  in 
minutes,  DATE-TIME-GROUP  (day,  hour,  minute,  L(local),  month,  and 


21 


year) ,  and  the  run  comment.  The  run  comment  shows  the  seaway  type, 
ship  speed,  heading  angle,  significant  wave  height,  and  modal  wave 
period.  An  example  of  the  STHLOG.TEX  file  is  shown  in  Table  6.  The 
STHLOG.TEX  file  is  stored  in  the  same  subdirectory  as  the  SRN.TEX 
and  SRN.DAT  files. 


ACCESS  TIME  HISTORY  PROGRAM,  ACTH 

The  ACTH  program  uses  (origin)  time  histories  generated  by  the 
STH  program  to  generate  response  time  histories  for  a  given  ship  at 
various  locations  on  the  ship.  The  STH  time  histories  for  various 
ships  are  located  in  ship  subdirectories  under  the  STHDATA  directory. 
The  ACTH  program  uses  the  STH  data  path  described  above  to  locate  the 
STH  time  histories.  For  example,  the  STH  data  path  shown  in  Fig.  5 
is  D:\STHDATA\S0DD965A  where  D  is  the  drive  letter,  STHDATA  is  the 
STH  data  directory,  and  SODD965A  is  the  ship  subdirectory  for  the 
DD965  ship. 

The  ACTH  response  time  histories  for  various  ships  are  located 
in  ship  subdirectories  under  the  ACTHDATA  directory.  For  example, 
the  ACTH  data  path  shown  in  Fig.  5  is  D:\ACTHDATA\SPDD965A  where  the 
letters  SP  are  the  abbreviation  for  simulation  response  time 
histories  at  various  locations  on  the  ship.  A  summary  of  files  used 
by  the  ACTH  program  is  provided  in  Table  7. 

ACTH  INPUT  DESCRIPTION 

The  information  required  to  run  the  ACTH  program  is  contained  in 
a  file  called  ACTH.INP  located  in  the  STH  directory.  This 
information  is  organized  into  10  Data  Sets  described  below  and 
summarized  in  Table  8.  An  example  of  the  ACTH.INP  file  is  provided 
in  Table  9. 

Data  Set  l.  STH  Data  Path 

One  Line,  Format  (A) 

(1)  STHDATAS,  alphanumeric,  columns  1-80,  path  indicating  where 
the  origin  time  history  files  output  from  the  STH  program 
are  located. 
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Data  Set  2.  ACTH  Data  Path 
Ona  line  -  Format  (A) 

(1)  ACTHDATAS,  alphanumeric,  columns  1-80,  path  indicating  where 
the  ACTH  response  time  histories  will  be  saved. 

Data  Set  3.  Ship  Name 

One  Line,  Format  (A) 

(1)  SHIPS,  alphanumeric,  columns  1-5,  identifies  ship  name. 

Data  Set  4.  Output  Data  Format 
One  line.  Format  (7X,I5) 

(1)  ASCII,  integer,  columns  8-12,  specifies  data  format  to  be 
used  for  the  ACTH  response  time  histories.  Use  1  for  binary 
output  format  and  2  for  ASCII  output  format. 

The  ACTH  response  time  histories  are  saved  in  either  a  binary 
format  or  an  ASCII  format.  The  default  format  1b  binary.  The  ASCII 
format  is  useful  for  transferring  these  time  histories  to  other 
computers  via  either  a  modem  or  magnetic  disks.  Note  that  the  ASCII 
format  uses  more  storage  (bytes)  than  the  binary  format  and  takes 
longer  to  write. 

Data_Set  5.  Wave  Point  Input 
flEflt  Ling  -  FORMAT  (A) 

No  variables,  blank  line  used  for  spacing. 

Second  Lina  -  Format  (18X,I5) 

(1)  NWPOINT,  integer,  columns  19-23,  number  of  wave  points. 
NWPOINT  is  set  to  zero  if  you  do  not  want  to  compute  relative 
motion  time  histories  in  the  ACTH  program.  Note,  however,  that  if 
relative  motion  is  desired  at  a  later  date,  the  user  must  rerun  the 
STH  program  and  include  the  wave  points  where  the  relative  motion  is 
to  be  computed.  Lines  3-5  are  always  included  even  if  NWPOINT-O. 
Third  Ling  -  FORMAT  (A) 

No  variables,  blank  line  used  for  spacing. 

Fourth  Line  -  FORMAT  (A) 

No  variables,  comment  used  to  identify  wave  point  table. 
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Fifth  Line  -  FORMAT  (A) 

No  variables ,  comment  Identifies  columns  for  wave  point  table. 
NOTE:  The  next  line  is  included  only  if  NWPOINT>0.  There  is  one 

line  for  each  wave  point. 

Sixth  Line  -  Format  (I4,3F8.1,3X,A20) 

(1)  IWPNT,  integer,  columns  1-4,  wave  point  number. 

(2)  WPNTXLOC ,  floating  point,  columns  5-12,  x-coordinate  of  wave 
point  (station  number,  0«Forward  Perpendicular) . 

(3)  WPNTYLOC,  floating  point,  columns  13-20,  y-coordinate  of 
wave  point  (positive  to  port  from  centerline) . 

(4)  WPNTZLOC,  floating  point,  columns  21-28,  z-coordinate  of 
wave  point  (positive  up  from  baseline) . 

(5)  WPTNAMES,  alphanumeric,  columns  29-48,  the  name  of  the  wave 
point. 

Wave  point  locations  are  required  to  be  input  only  if  relative 
motion  time  histories  are  desired.  Wave  time  histories  at  these 
points  must  have  been  previously  generated  by  the  STH  program.  The 
same  wave  point  locations  should  have  been  used  in  the  STH  input. 
The  ACTH  program  compares  the  wave  point  locations  used  in  the  ACTH 
and  STH  input  and  stops  if  they  are  not  identical. 

Pata  Sot  $«  Point  input 

First.  Lina  -  format  (a) 

No  variables,  blank  line  used  for  spacing. 

Second  Line  -  Format  (13X,I5) 

(1)  NPOINT,  integer,  columns  14-18,  number  of  points  on  the  ship 
where  response  time  histories  are  computed. 

NPOINT  is  set  to  zero  if  you  do  not  want  to  compute  response 
time  histories  at  a  point.  Lines  3-5  are  always  included  even  if 
NPOINT-O . 

Third  Line  -  FORMAT  (A) 

No  variables,  blank  line  used  for  spacing. 

Fourth  Line  -  FORMAT  (A) 

No  variables,  comment  used  to  identify  point  table. 
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Fifth  Lina  -  FORMAT  (A) 

No  variables,  comment  used  to  identify  columns  for  point  table. 
NOTE:  The  next  line  is  included  only  it  NPOINT>0 .  There  is  one  line 
tor  each  vave  point. 

Sixth  Line  -  Format  (14 , 3F8. l, 3X, A20) 

(1)  IPNT,  integer,  columns  1-4,  point  number. 

(2)  PNTXLOC,  floating  point,  columns  5-12,  x-coordinate  of  point 
(station  number,  0-Forward  Perpendicular) . 

(3)  PNTYLOC ,  floating  point,  columns  13-20,  y-coordinate  of 
point  (positive  to  port  from  centerline) . 

(4)  PNTZLOC,  floating  point,  columns  21-28,  z-coordinate  of 
point  (positive  up  from  baseline) . 

(5)  PNTNAMES,  alphanumeric,  columns  32-51,  the  name  of  the 
point. 

Data  Set  7.  Channel  Input 

First  Line  -  FORMAT  (A) 

No  variables,  blank  line  used  for  spacing. 

Second  Line  -  Format  (15X,I5) 

(1)  NCHAN,  integer,  columns  16-20,  number  of  channels. 

Third  Line  -  format  (a) 

No  variables,  blank  line  used  for  spacing. 

Egurth  Line  -  format  (a) 

No  variables,  comment  used  to  identify  channel  table. 

Fifth  Line  -  FORMAT  (A) 

No  variables,  comment  used  to  identify  columns  for  channel 
table.  There  is  one  line  for  each  channel. 

Sixth  Line  -  Free  Format 

(1)  ICHN,  integer,  channel  number. 

(2)  IRSP,  integer,  response  number. 

1  »  surge;  longitudinal  response  at  a  point  (earth  system) ; 

longitudinal  force  at  a  point  (ship  system) 

2  «  sway;  lateral  response  at  a  point  (earth  system) ; 

lateral  force  at  a  point  (ship  system) 
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3  -  heave;  vertical  response  at  a  point  (earth  system) ; 

vertical  force  at  a  point  (ship  system) 

4  -  roll;  relative  motion  at  a  point  (earth  system) 

5  -  pitch 

6  •  yaw 

7  »  wave  height  at  the  origin  or  at  a  wave  point  location. 

(3)  ITYP,  integer,  response  type. 

1  ■  displacement 

2  «  velocity 

3  ■  acceleration 

4  -  angle 

(4)  ISYS ,  integer,  response  system. 

1  *  earth  system 

2  «  ship  system 

(5)  IPNT,  integer,  response  point  number  from  Data  Set  5  or  6. 

The  method  used  to  select  the  ACTH  channels  is  outlined  in  Table 

10.  Each  channel  is  defined  by  five  numbers;  channel  number, 
response  number,  response  type  number,  reference  system  desired,  and 
point  location.  The  first  step  is  to  select  a  point  number.  If  the 
point  number  is  zero,  the  response  numbers  are  limited  to  1-6  for  the 
6 DOF  reponses  and  7  for  wave  height  at  the  LCG.  Only  the  earth 
reference  is  allowed.  Displacement,  velocity,  or  acceleration  (types 
1,2,3,  respectively)  are  allowed  for  any  of  these  responses. 

If  user  selects  a  point  number  greater  than  zero,  then  both 
earth  and  ship  reference  systems  are  allowed.  The  available  response 
numbers  for  the  earth  system  are  1-3  corresponding  to  longitudinal, 
lateral,  and  vertical  responses  at  a  point,  4  for  relative  motion  at 
a  wave  point,  and  7  for  wave  height  at  a  wave  point.  Displacement, 
velocity,  or  acceleration  (types  1,2,3,  respectively)  are  allowed  for 
any  of  these  responses.  If  the  user  selects  the  ship  reference 
system,  then  the  response  numbers  allowed  are  1-3  for  the 
longitudinal,  lateral,  and  vertical  forces  at  a  point.  The  response 
type  is  restricted  to  3  which  is  acceleration  (force  per  unit  mass). 
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First  Line  -  FORMAT  (A) 

No  variables,  blank  line  used  for  spacing. 

Second  Line  -  Format  (15X,I5) 

(1)  STARTRUN,  integer,  columns  16-20,  start  ACTH  run  number. 

Data-  Set  9 ,  No  of  ACTH  Runs 

One  Line  -  Format  (16X,I5) 

(1)  NRUNS,  integer,  columns  17-21,  number  of  ACTH  runs 

Data.  Set  10.  STH  Run  Input 
First  Line  -  FORMAT  (A) 

No  variables,  blank  line  used  for  spacing. 

Second  Line  -  FORMAT  (A) 

No  variables,  comment  used  to  identify  STH  run  input. 

There  is  one  line  for  each  STH  run. 

Third  Line  -  Free  Format 

(l)  STHRUN,  integer,  STH  (origin)  time  history  run  number. 

ACTH  OUTPUT  DESCRIPTION 

The  ACTH  program  only  displays  three  items  on  the  screen  for 
each  run;  the  ACTH  program  identification,  the  total  number  of  ACTH 
runs  to  be  made,  and  the  run  that  the  ACTH  program  is  currently 
working  on.  An  example  of  the  ACTH  screen  display  is  provided  in 
Tabl«  li. 

The  information  describing  each  ACTH  run  is  written  to  a  text 
file  called  ARM. TEX  where  M  is  the  run  number.  The  ARM. TEX  file  is 
stored  in  a  ship  subdirectory  under  the  ACTHDATA  directory,  e.g., 
D:\ACTHDATA\SPDD965A.  An  example  of  this  file  for  ACTH  run  number  3 
is  shown  in  Table  12.  The  ARM. TEX  file  is  comparable  to  the  SRN.TEX 
file  written  by  the  STH  program.  The  information  contained  in  the 
ARM. TEX  file  consists  of: 

1.  DATE-TIME-GROUP; 

2.  Ship  identification; 

3.  ACTH  run  identification  which  includes  run  number,  comment, 
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sample  rate,  and  run  times  (the  corresponding  STH  run  number 
is  identified) ; 

4.  Ship  particulars; 

5.  Run  particulars  including  ship  speed,  heading,  sea  type, 
etc . ; 

6.  Table  of  STH  statistical  results  which  compares  time  domain 
and  frequency  domain  calculations  of  the  standard  deviation 
for  the  STH  channels; 

7.  Listing  of  wave  point  locations  (required  for  relative  motion 
calculations  in  the  ACTH  program) ; 

8.  Listing  of  point  locations  (required  for  motions,  velocities 
and  accelerations  at  a  point  and  forces  in  the  ship  system) ; 

9.  Listing  of  channels  and  there  associated  points  (the  channel 
number,  name,  type,  unit,  system,  and  the  point  number  and 
the  point  location  associated  with  the  channel  are  also 
given) ; 

10.  Listing  of  the  statistical  results  obtained  from  the  ACTH 
time  histories  (these  statistics  include  the  mean,  standard 
deviation,  maximum  and  minimum  values  for  each  ACTH  channel) ; 

11.  The  total  number  of  samples  for  the  run. 

The  ACTH  time  histories  are  «rritten  in  one  of  two  possible 

formats  depending  on  the  value  of  the  variable  ASCII  in  Data  SET  2  of 

the  ACTH  input.  If  the  user  chooses  ASCII-1,  then  the  time  histories 
are  written  to  a  standard  FORTRAN  sequential  binary  data  file  called 
ARM. DAT.  The  first  record  in  the  file  contains  two  integer 

variables,  the  total  number  of  samples  and  the  number  of  channels. 
The  remaining  records,  one  for  each  sample,  contain  the  time 

histories  for  all  the  ACTH  channels  in  the  desired  engineering  units. 
The  ARM. DAT  file  is  stored  in  the  same  subdirectory  as  the  ARM. TEX 
file. 

If  the  user  instead  chooses  ASCII-2,  then  the  time  histories  are 
written  to  a  formatted  FORTRAN  sequential  ASCII  data  file  called 
ARM. ASC  as: 
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Record  1.  Header 

One  Line  -  Format  (215) 

(1)  COUNT,  integer,  columns  1-5,  total  number  of  samples. 

(2)  NCHAN,  integer,  columns  6-10,  number  of  channels. 

Records  2-(C0UNT+l) .  ACTH  time  history  data 

Line  1  -  Format  (2I5,8F8.3) 

(1)  CNT,  integer,  columns  1-5,  sample  number. 

(2)  KL,  integer,  column  10,  line  number  (set  to  1) . 

(3)  ACTHDATA,  floating  point,  columns  11-18,  19-26,  etc.,  up  to 
eight  channels  of  ACTH  time  histories  at  sample  CNT.  The 
time  histories  are  ir  engineering  units. 

A  second  line  is  required  if  there  are  more  than  eight  channels. 

Line  2  -  Format  (5X,I5,8F8.3) 

(1)  No  variable,  first  5  columns  skipped. 

(2)  KL,  integer,  column  10,  line  number  (set  to  2) . 

(3)  ACTHDATA,  floating  point,  columns  11-18,  19-26,  etc., 
remaining  channels  of  ACTH  time  histories  at  sample  CNT. 

An  example  of  the  ARM. ASC  file  is  shown  in  Table  13.  The 
ARM.ASC  file  is  stored  in  the  same  subdirectory  as  the  ARM. TEX  file. 

A  separate  text  file  called  ACTHLOG.TEX  is  updated  for  each  run. 
This  file  contains  a  summary  of  the  ACTH  runs  that  have  been  made. 
The  summary  consists  of  a  separate  line  for  each  run  that  contains 
the  ACTH  run  number,  data  format  type  (binary  or  ASCII) ,  simulation 
run  time  in  minutes,  DATE-TIME-GROUP  (day,  hour,  minute,  L(local) , 
month,  and  year) ,  and  the  run  comment.  The  run  comment  shows  the 
seaway  type,  ship  speed,  heading  angle,  significant  wave  height,  and 
modal  wave  period.  An  example  of  the  ACTHLOG.TEX  file  is  shown  in 
Table  14.  The  ACTHLOG.TEX  file  is  stored  in  the  same  subdirectory  as 
the  ARM. TEX  file. 

There  is  also  a  file  called  ERROR .  TEX  that  is  created  when  the 
ACTH  program  is  executed.  This  formatted  sequential  file  contains 
any  error  messages  that  may  have  occurred  while  the  program  was 
executing.  A  message  telling  the  user  that  all  STH  runs  were 
successfully  completed  is  written  if  no  errors  occurred  .  A  summary 


29 


of  the  error  messages  is  provided  in  Table  15.  The  ERROR . TEX  file  is 
stored  in  the  STH  directory. 

PROCEDURE  USED  TO  DEVELOP  SHIP  RESPONSE  TIME  HISTORIES 

The  ACTH  program  is  used  to  develop  response  time  histories  in 
random  seas  at  various  locations  on  the  ship.  In  order  to  run  the 
ACTH  program  the  user  must  perform  a  number  of  tasks  which  involve: 

1.  Selection  of  ship, 

2.  Reviewing  SMP84  output/running  SMP84  program, 

3.  Reviewing  STH  runs /running  STH  program, 

4.  Editing  ACTH  input/running  ACTH  program. 

The  input  required  to  run  each  of  the  three  programs,  SMP84, 
STH,  and  ACTH  is  specific  to  a  particular  ship.  Each  program  however 
uses  a  generic  input  file  name,  SMP.INP,  STH.INP,  and  ACTH.INP, 
respectively.  The  user  must  maintain  these  input  files  using  both 
generic  names  as  well  as  ship  specific  names.  In  order  to  change  a 
ship,  the  user  should  first  save  the  generic  input  files  for  the 
current  ship  to  files  that  are  identified  by  the  ship  name.  For 
example,  using  thn  MS-DOS  copy  command  at  the  MS-DOS  prompt, 

C:\COPY  C:\STH\STH.INP  C:\STH\DD965A.STH, 
where  the  extension  STH  would  identify  the  file  as  the  STH  input  for 
the  DD965A  ship.  The  extensions  SMP  and  ATH  should  be  used  for  the 
input  files  for  the  SMP84  and  ACTH  programs.  Next  the  user  should 
copy  the  input  files  for  the  new  ship  to  the  generic  files,  i.e., 
C:\COPY  C:\STH\FFG8A.ATH  C:\ACTH.INP, 
where  the  new  ship  is  the  FFG8A. 

SMP84  is  a  frequency  domain  program  that  predicts  statistical 
ship  responses  in  random  seas  at  various  locations  on  the  ship.  The 
SMP  input  consists  of  ship  offsets  as  a  function  of  station,  and 
loading  information  such  as  nominal  GM,  displacement,  roll  radius  of 
gyration.  Other  input  information  describes  the  appendage  suite, 
point  locations  for  ship  responses,  and  sea  conditions.  The 
information  required  to  run  the  SMP84  program  can  be  found  in 
References  1  and  2. 

A  file  called  the  origin  file,  DD965A.ORG  for  the  DD965A  ship, 
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is  output  from  SMP84  and  stored  in  the  SMPDATA  subdirectory.  This 
file  contains  the  6D0F  (surge,  sway,  heave,  sway,  heave,  roll,  and 
yaw)  transfer  functions  computed  at  the  LCG  of  the  ship  in  the 
waterplane  as  a  function  of  ship  speed,  heading,  wave  frequency,  and 
mean  roll  angle.  This  file  is  required  by  the  STH  program  to  develop 
6  DOF  time  histories  for  specified  speeds,  headings,  and  sea 
conditions. 

An  additional  text  file  containing  the  statistical  ship 
responses  is  output  from  SMP84  and  stored  in  the  SMPDATA 
subdirectory.  This  file  is  called  DD965AN.OUT  where  N  is  a  cycle 
number  which  represents  the  last  SMP84  run  made  for  the  DD965A  ship. 
This  output  file  can  provide  assistance  in  selecting  conditions  for 
which  STH  runs  can  be  made.  Note  that  one  of  the  reasons  for  running 
the  STH  program  is  to  obtain  phase  correlation  between  responses 
which  is  not  provided  in  the  SMP84  statistical  tables.  The 
statistical  tables  do  identify  the  speeds,  headings,  and  the  modal 
wave  periods  where  the  maximum  values  occur  for  a  large  number  of 
responses.  Examples  of  the  statistical  response  tables  for  roll  as 
well  as  the  vertical  velocity  at  the  helicopter  deck  bullseye  are 
shown  in  Tables  16  and  17,  respectively. 

Once  the  STH  run  conditions  have  been  selected  from  the  SMP84 
output  and  the  SMP84  Origin  file  has  been  saved,  the  next  task  is  to 
edit  the  STH  input  file.  The  user  can  review  the  STHLOG.TEX  file  to 
determine  which  STH  runs  have  already  been  made.  Note  that  the 
STHLOG.TEX  file  is  located  in  the  DD965A  subdirectory  of  the  STHDATA 
directory.  The  STH  runs  take  a  long  time  to  execute,  approximately 
43  minutes  per  run  on  a  20-Mhz  COMPAQ  386  personal  computer,  and 
should  be  run  overnight  or  over  a  weekend. 

The  STH  time  histories  form  the  data  base  from  which  response 
time  histories  are  developed  in  the  ACTH  program.  Once  the  STH  time 
histories  have  been  run,  the  last  task  is  to  edit  the  ACTH  input  file 
to  select  the  point  locations  on  the  ship  and  the  desired  responses. 
The  ACTH  program  executes  very  quickly,  approximately  1  to  2  minutes 
for  16  channels,  and  can  easily  be  run  many  times  using  different 
ACTH  run  numbers  for  different  sets  of  channels  or  point  locations. 


31 


TIME  HISTORY  EXAMPLE 


SELECTION  OP  SHIP  AND  SEAWAY  PARAMETERS 

The  DD965  destroyer  is  the  example  ship  used  to  demonstrate  the 
procedure  required  to  develop  response  time  histories.  Four 
locations  were  selected  as  shown  in  Fig.  7.  These  locations  are 
identified  as: 

1.  Sonar  dome, 

2.  Starboard  side  of  the  bridge, 

3.  Helicopter  deck  bullseye, 

4.  Port  side  of  the  stern. 

The  following  nine  responses  were  selected  for  running  in  the 
SMP84  and  ACTH  programs: 

1.  Wave  height, 

2.  Roll  angle, 

3.  Pitch  angle, 

4.  Heave, 

5.  Relative  motion  at  the  sonar  dome, 

6.  Earth  system  vertical  acceleration  on  the  starboard  side 
of  the  bridge, 

7.  Earth  system  vertical  velocity  at  the  helicopter  deck 
bullseye, 

8.  Earth  system  lateral  acceleration  at  the  helicopter  deck 
bullseye, 

9.  Ship  system  lateral  force  at  the  helicopter  deck 
bullseye. 

The  SMP84  program  was  run  using  a  significant  wave  height  of  12 
feet  and  a  roll  statistic  of  2.  The  origin  transfer  function  file  was 
saved  as  DD965A.ORG  and  the  statistical  response  results  were  saved 
in  the  DD965A6.0UT  output  file.  The  input  used  for  running  SMP84  is 
shown  in  Table  18.  A  plot  of  the  hull  lines  is  shown  in  Fig.  8  and 
the  ship  hydrostatics  are  shown  in  Table  19.  SMP84  optionally 
outputs  the  6 DOF  Response  Amplitude  Operator  (RAO)  magnitudes  and 
phases  as  a  function  of  encountered  wave  frequency,  ship  speed,  and 
relative  wave  heading.  Note  that  the  RAO  magnitude  is  the  square  of 
the  transfer  function  magnitude.  An  example  of  the  RAO  magnitudes 
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and  phases  for  the  6D0F  responses  is  shown  in  Table  20  for  a  ship 
speed  of  20  knots  and  a  relative  wave  heading  of  45  degrees  (bow 
waves) . 

Three  representative  STH  runs  were  made  using  ship/sea 
conditions  selected  from  the  SMP84  statistical  response  tables. 
Shortcrested  seas  were  used  for  all  three  runs.  The  significant  wave 
height  used  was  12  feet.  The  nodal  wave  period  used  was  9  seconds 
which  is  the  most  probable  wave  period  for  this  significant  wave 
height.  The  ship  conditions  selected  were: 

1.  Beam  seas  (90  degrees),  zero  knots  was  used  for  STH 
run  1  to  illustrate  the  wave  time  history, 

2.  Bow  seas  (45  degrees),  20  knots  was  used  for  STH  run  2 
to  illustrate  large  pitch  and  vertical  mode  response 
time  histories,  and 

3.  Quartering  seas  (135  degrees),  20  knots  was  used  for  STH 
run  3  to  illustrate  large  roll  and  lateral  mode  response 
time  histories. 

The  STH  input  file  is  shown  in  Table  4.  Note  that  two  wave 
point  locations,  for  the  sonar  dome  and  the  port  side  of  the  stern, 
were  used  in  the  input  in  order  to  compute  relative  motion  time 
histories  at  these  points  in  the  ACTH  program.  Each  STH  run  took  43 
minutes  to  execute  for  a  total  of  129  minutes.  Each  STH  data  file, 
SRN.DAT,  used  133,900  bytes  of  storage. 

Finally,  three  ACTH  runs  were  made  using  the  three  STH  runs  as 
input.  Response  time  histories  were  generated  for  the  9  responses 
previously  identified.  The  ACTH  input  is  shown  in  Table  9.  Each 
ACTH  run  took  22  seconds  for  a  total  of  66  seconds  using  the  binary 
data  format  option.  The  data  storage  for  ARM. DAT  was  133,900  bytes. 
If  the  ASCII  data  format  is  selected,  the  ACTH  run  time  increases  to 
60  seconds  per  run  and  the  ARM. ASC  storage  increases  to  345,700 
bytes . 

ANALYSIS 

Beam  Sea  Wave  Time  History 

A  20-minute  wave  time  history  was  computed  at  3  samples  per 
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second  in  STH  run  1  for  a  ship  speed  of  zero  knots  in  shortcrested 
beam  seas  with  a  significant  wave  height  of  12  feet  and  a  modal  wave 
period  of  9  seconds.  The  first  300  seconds  of  this  wave  time  history 
is  shown  in  Fig.  9a.  As  shown  in  Fig.  9b,  a  power  spectrum  of  the 
wave  channel  as  well  as  a  bimodal  distribution  of  wave  amplitudes  (by 
single  amplitude  and  period)  was  computed  for  the  entire  20-minute 
duration  of  the  run.  There  were  a  total  of  158  cycles,  where  the 
period  of  each  cycle  is  defined  by  three  consecutive  zero-crossings. 

A  comparison  between  the  power  spectrum  computed  from  the  wave 
time  history  and  the  Bretschneider  wave  spectral  model  is  shown  in 
Fig.  10a.  The  instantaneous  wave  elevations  are  compared  with  a 
Gaussian  distribution  in  Fig.  10b.  Finally,  a  comparison  of  the  wave 
single  amplitude  distribution  is  compared  with  a  Rayleigh 
distribution  in  Fig.  10c. 

These  comparisons  show  that  the  wave  time  history  developed  by 
the  STH  program  does  represent  a  random  sea  whose  instantaneous  wave 
elevations  have  a  Gaussian  distribution  and  whose  single  amplitudes 
have  a  Rayleigh  distribution.  Note  that  the  Bretschneider  wave 
spectrum,  and  the  Gaussian  and  Rayleigh  distributions  represent 
averages  from  a  large  collection  of  time  histories.  The  results 
obtained  from  any  one  time  history  for  a  specific  set  of  random 
numbers  (see  Eq.  10)  can  be  larger  or  smaller  than  these  curves. 
However,  the  results  should  have  the  same  general  trends  as  the 
theoretical  curves. 

Since  the  linear  superposition  principle  was  used  to  obtain  the 
ship  response  time  histories  to  the  random  seas,  it  follows  that  the 
response  elevations  will  also  have  a  Gaussian  distribution  and  the 
response  single  amplitudes  will  have  a  Rayleigh  distribution.  The 
single  amplitudes  for  roll  will  have  a  modified  Rayleigh  distribution 
because  of  the  increase  in  roll  damping  with  increasing  significant 
wave  height. 

Ship  Response  Time  Histories  in  Bow  &  Stern  Quartering  Seas 

Nine  response  time  histories,  including  the  encountered  wave 
time  history,  were  generated  by  the  ACTH  program  at  3  samples  per 
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second  for  20  minutes  in  a  shortcrested  sea  with  a  significant  wave 
•  height  of  12  feet  and  a  modal  wave  period  of  9  seconcs.  ACTH  run  2 
represents  a  bow  sea  (45  degree)  ship  heading  a:  d  ACTH  run  3 
represents  a  stern  quartering  sea  (135  degrees).  Both  runs  are  for  a 
ship  speed  of  20  knots.  The  minimum  analysis  (standard  deviation  and 
peak  values)  of  the  nine  responses  for  both  ACTH  runs  is  shown  in 
Table  21. 

A  comparison  of  these  responses  for  bow  and  stern  quartering 
seas  is  provided  in  Figure  11.  Time  histories  are  shown  for  the 
encountered  wave,  roll  angle,  pitch  angle,  heave  displacement, 
relative  motion  at  the  sonar  dome,  vertical  acceleration  at  the 
starboard  side  of  the  bridge,  and  vertical  velocity,  lateral 
acceleration  (earth-reference),  and  lateral  force  ( ship-reference) 
for  the  center  of  the  helicopter  deck  bullseye. 

A  representative  200  second  section  from  each  the  20  minute  runs 
is  compared  in  this  figure.  Note  first  that  the  encountered  wave 
frequencies  in  bow  seas  are  higher  than  for  stern  quartering  seas  at 
the  ship  speed  of  20  knots.  In  face  there  is  not  enough  wave  energy 
near  the  natural  roll  frequency  (0.4  rps)  in  bow  seas  at  this  speed 
to  excite  the  ship  in  roll.  In  general,  the  ship  responses  related 
to  the  vertical  mode,  i.e.,  pitch,  heave,  relative  motion,  and 
vertical  velocity  and  acceleration  are  larger  in  bow  seas  than  in 
stern  quartering  seas.  Likewise,  the  ship  responses  related  to  the 
lateral  mode,  i.e.,  roll,  lateral  acceleration,  and  ship  lateral 
force  are  larger  in  stern  quartering  seas  where  the  encountered  wave 
frequencies  are  smaller  (longer  periods)  compared  to  bow  seas. 
Vertical  responses  at  point  locations  on  the  ship  which  are  off 
centerline  contain  a  roll  component,  and  can  thus  show  a  resonance 
due  to  roll  in  stern  quartering  seas.  Finally,  note  that  the  lateral 
force  in  the  ship  system  is  larger  than  the  lateral  acceleration  in 
the  earth  system  due  to  the  component  of  gravity  times  the  sine  of 
the  roll  angle,  which  is  much  larger  in  stern  quartering  seas  than  in 
bow  seas. 
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CONCLUDING  REMARKS 


The  methods /programs  described  in  this  report  provide  a  rational 
approach  to  the  generation  of  simulated  ship  motions  in  random  seas. 
These  ship  motion  time  histories  in  turn  can  be  used  to  develop 
realistic  ship  motion  specifications  to  which  any  ship  subsystem  can 
be  designed.  The  i  ntion  in  developing  this  tool  is  to  allow  a 
potential  user  to  concentrate  on  developing  the  model  of  his 
subsystem  and  not  on  the  generation/ accuracy  of  the  ship  motion  data 
base  which  will  be  used  to  drive  the  subsystem. 

No  software  remains  static.  Future  enhancements  or  expansion  of 
these  programs  will  depend  not  only  on  theoretical  and  technological 
improvements,  but  will  rely  heavily  on  the  requirements  of  the  users. 
It  is,  therefore,  important  that  feedback  be  provided  the  authors  so 
that  later  versions  of  the  programs  presented  will  meet  the  needs  of 
the  U.S.  Navy. 
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Fig.  1.  Sign  convention  for  translatory  and  angular  displacements. 
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Fig.  2.  Definition  of  computational  heading,  fi. 
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NOTE:  NUMBERS  IN  PARANTHESES  ARE  SHORTCRESTING 
WEIGHTING  CONSTANTS. 


Fig.  4.  Example  of  the  shortcresting  method  for  an  output 
predominant  heading  of  45  degrees  (bow  seas) . 
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Fig.  5.  Organization  chart  of  STH,  ACTH,  and  SMP84  directories  and 
files. 
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Fig.  6.  Input  reference  system  (SMP84) . 
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WAVE  POINTS 
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YCL 
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• 

(STATION  #) 

(FT) 

(FT) 

1. 

SONAR  DOME 

0.8 

0.0 

-9.5 

2. 

STERN,  PORT  SIDE 

19.8 

20.8 

33.0 

MOTION  POINTS 

XFP 

YCL 

ZBL 

■ 

(STATION  #) 

(FT) 

(FT) 

1.  BRIDGE,  STBD  SIDE 

5.5 

-15.0 

62.0 

2.  HELO  DECK  BULLSEYE 

14.4 

0.0 

51.0 

Fig.  7.  Point  locations  on  DD-965  for  point  tine  history  example. 
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Ship  Code  :  99965  Run  =  1 
Channel  1  =  UAUEHT  9SP 
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Fig.  9a.  Time  history  of  wave  height  displacement. 
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Fig.  9b.  Spectrum  and  amplitude  vs.  period  distribution. 


Fig.  9.  Example  of  wave  behavior  in  shortcrested  beam  seas, 
significant  wave  height  of  12  feet  and  modal  wave 
period  of  9  seconds. 
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Fig.  10a 


Fig.  10b 


Fig. 

Fig.  10. 


SIGNIFICANT  UAUE  HEICWT  a  12  FEET 
H09AL  UAUE  PERIOD  -  9  SECONDS 


UAUE  FREQUENCY,  u.  RADIANS^SECOND 

.  Computed  wave  spectrum  vs.  Bretschneider  wave  spectrum. 

TOTAL  NO.  OF  SAMPLES  •  3SS1 


UAUE  ELEVATION  (FEET) 


Wave  elevation  distribution  vs.  Gaussian  distribution. 

TOTAL  NO.  OF  AMPLITUDES  -  138 


10c.  Wave  single  amplitude  distribution  vs.  Rayleigh 
distribution. 

Analysis  comparison  of  beam  seas  wave  time  history  with 
theoretical  predictions. 
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Table  1.  Constants  for  single  amplitude  Rayleigh  statistics. 


SINGLE  AMPLITUDE  STATISTICS 


Root  mean  square  amplitude,  RMS  1.00  a 

Average  amplitude  1.25  a 

Average  of  highest  1/3  amplitudes, 

significant  2.00  o 

Highest  expected  amplitude  in  10 

successive  amplitudes  2.15  a 

Average  of  highest  1/10  amplitudes  2.55  a 

Highest  expected  amplitude  in  30 

successive  amplitudes  2.61  a 

Highest  expected  amplitude  in  5C 

successive  amplitudes  2.80  a 

Highest  expected  amplitude  in  100 

successive  amplitudes  3.03  a 

Highest  expected  amplitude  in  200 

successive  amplitudes  3.25  c 

Highest  expected  amplitude  in  1000 

successive  amplitudes  3.72  a 


DEFINITIONS 

e*  *  Statistical  variance  of  time  history. 

N  =  Number  of  successive  amplitudes. 

CONSTANT  «  72  (In  N)  ** ,  where  CONSTANT  relates  a  to 
the  highest  expected  amplitude  in  N 
successive  amplitudes. 


NOTES : 

1.  The  highest  expected  amplitude  in  N  amplitudes  is  the  most 
probable  extreme  value  in  N  amplitudes.  This  value  may  be 
exceeded  63  percent  of  the  time. 

2.  To  obtain  wave  height  or  double  amplitude  statistics  from 
RMS  values,  multiply  single  amplitude  constants  by  2.0. 
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Table  2.  Summary  of  files  used  by  the  STH  program 


PILE 

NAME 

TYPE 

DESCRIPTION 

1. 

STH. INP 

ASCII 

Input  for  the  STH  program  describing 
wave  point  locations  and  STH  run 
conditions 

2. 

DD965A.ORG 

Binary 

SMP84  6 DOF  (Origin)  transfer  functions 

3. 

SRN.TEX 

ASCII 

Summary  of  conditions  and  statistical 
results  for  wave  and  6D0F  channels 
for  STH  run  N 

4. 

SRN.DAT 

Binary 

Wave  and  6D0F  time  histories  for 

STH  run  N 

5. 

STHLOG.TEX 

ASCII 

Summary  of  STH  runs  and  conditions 

Table  3.  STH  data  set  summary. 


STH  Data  Set 

Definition 

1 

SMP  DATA  PATH 

2 

STH  DATA  PATH 

3 

SHIP  TYPE 

4 

SHIP  NAME 

5 

HULL  VARIANT 

6 

CYCLE  NO 

7 

UNITS 

8 

TITLE 

9 

WAVE  POINT  INPUT 

10 

RUN  INPUT 
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Table  5.  (Continued) 


Table  5.  (Continued) 


STATISTICAL  RESULTS 

TINE  OONAIN  FREQ.  DOMAIN 


CNAN 

NAME 

UNIT 

MEAN 

STODEV 

MAX 

MIN 

STDDEV 

1 

UAVEHT 

FEET 

•0.005 

2.800 

8.089 

•10.766 

2.980 

2 

SURGE 

FEET 

0.018 

2.662 

7.005 

-7.783 

2.941 

3 

•WAY 

FEET 

0.020 

1.496 

4.762 

-4.633 

1.588 

4 

HEAVE 

FEET 

0.002 

1.557 

5.098 

•6.218 

1.536 

5 

ROLL 

DEG 

•0.009 

3.338 

10.148 

-8.743 

4.083 

6 

PITCH 

DEG 

0.002 

0.472 

1.515 

•1.338 

0.511 

7 

YAW 

DEG 

•0.001 

0.575 

1.714 

-1.472 

0.653 

8 

WVHTP1 

FEET 

0.004 

2.779 

8.555 

•8.440 

2.980 

9 

WVHTP2 

FEET 

0.030 

2.550 

7.271 

•8.811 

2.980 

ELAPSED  TINE 

0  Hours  43  Ninutos  16  Socondt 


Table  6.  Example  of  STHLOG.TEX  file. 


STH  LOG  RUN  SUMMARY 

TRIAL:  DD965  NUSC  SONAR  STUDY  (ARMORED,  TRIMMED 

STH  DATA  PATH  :  C:\STHDATA\SODD965A 


TYPE  CODE  :  BI  -  BINARY 

RUN  TYPE  TIME  DATE-TIME-GROUP  COMMENTS 


1 

BI 

20.0 

MIN 

01101?  L 

SEP89 

SC 

V-  0 

HD- 

90 

SWH-12.0 

TO™ 

9 

2 

BI 

20.0 

MIN 

011054L 

SEP89 

SC 

V-20 

HD- 

45 

SWH-12 . 0 

TO- 

9 

3 

BI 

20.0 

MIN 

011137L 

SEP89 

SC 

V-20 

HD-135 

SWH-12 . 0 

TO- 

9 

52 


Table  7.  Summary  of  files  used  by  the  ACTH  program. 


FILE 

NAME 

TYPE 

DESCRIPTION 

1. 

ACTH.INP 

ASCII 

Input  for  the  ACTH  program  describing 
wave  point  locations,  point  locations, 
channel  identification,  and  STH  run 
numbers 

2. 

SRN.TEX 

ASCII 

Summary  of  conditions  and  statistical 
results  fcr  wave  and  6D0F  channels 
for  STH  run  N 

3. 

SRN.DAT 

Binary 

Wave  and  6D0F  time  histories  for 

STH  run  N 

4. 

ARM. TEX 

ASCII 

Summary  of  point  locations,  channel 
identification,  run  conditions,  and 
channel  statistical  results  for  ACTH 
run  M 

5. 

ARM. OAT 

Binary 

Time  histories  for  up  to  16  ACTH 
channels  for  ACTH  run  M  (optional  data 
format  used  when  variable  ASCIIS ) 

6. 

ARM.ASC 

ASCII 

Time  histories  for  up  to  16  ACTH 
channels  for  ACTH  run  M  (optional  data 
format  used  when  variable  ASCII«2) 

7. 

ACTHLOG.TEX 

ASCII 

Summary  of  ACTH  runs  and  conditions 

8. 

ERROR . TEX 

ASCII 

Summary  of  errors  detected  when  ACTH 
program  was  executed 

Table  8.  ACTH  data  set  summary. 


ACTH  Data  Set 

Definition 

1 

STH  DATA  PATH 

2 

ACTH  DATA  PATH 

3 

SHIP  NAME 

4 

OUTPUT  DATA  FORMAT 

5 

WAVE  POINT  INPUT 

6 

POINT  INPUT 

7 

CHANNEL  INPUT 

8 

START  ACTH  RUN 

9 

NO  OF  ACTH  RUNS 

10 

STH  RUN  INPUT 
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iSFrerayaro* 


Table  9.  Example  of  ACTH.INP  file. 
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Table  10.  Method  used  to  select  ACTH  channels. 


Select  Point  No 

Point  no  ■  0  -  Location  (Origin)  is  at  LCG  in  the  vaterplane 

SYSTEM  -  EARTH 

Select  Response  No 

1  -  Surge 

2  -  Sway 

3  -  Heave 

4  -  Roll 

5  -  Pitch 

6  -  Yaw 

7  -  Wave  Height  at  LCG 

Select  Type 

1  -  Displacement/ Angle 

2  -  Velocity 

3  -  Acceleration 

Point  no  >  0  -  Any  location  on  the  ship 

Select  system 
SYSTEM  «  EARTH 

Select  Response  No 

1  -  Longitudinal  reponse  at  a  point 

2  -  Lateral  "  " 

3  -  vertical  "  " 

4  -  Relative  notion  at  a  wave  point 
7  -  Wave  height  at  a  wave  point 

Select  Type 

1  -  Displacement 

2  -  Velocity 

3  -  Acceleration 

SYSTEM  -  SHIP 

Select  Response  No 

1  -  Longitudinal  force  at  a  point 

2  -  Lateral  "  " 

3  -  Vertical  "  " 

Select  Type 

3  -  Acceleration  (force  par  unit  mass) 
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Table  11.  ACTH  menu  screen. 


Access  Time  History  Program  (ACTH) 

Total  number  of  runs  -  3 

Start  run  number  -  1 

Working  on  run  number  3 
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Table  12.  Example  of  AR3.TEX  file 


RUN  DATE -TINE 'GROUP  *  i 

032106L  SEP89 

032106L  SEP89,  0,  9, 

135,  0,  0,  12.0,  9 

TRIAL i  DD965  NUSC  SONAR  STUOY  (ARNOREO,  TRIMMED 

UIC  CODE:  09965 

RUNt  3 

COMMENTS:  SC  V*  20 

HO-  135  $WH» 

12.0  TO*  9 

CORRESPOND I NO  STN  RUM: 

3 

SAMPLE  RATE  :  3.0 
START  TIME:  0.0 
STOP  TIME:  1200.0 

RUN  TIME:  1200.0 

SHIP  TYPE:  DESTROYS 
SHIP:  0D96S 

HULL  VARIANT:  A 

SNP  CYCLE  NO:  6 

UNITS:  FEET 

GRAVITY:  32.1700 

SHIP  LENGTH:  529 
LONGITUDINAL  CENTER  OF 

GRAVITY  (REF 

FROM  FP):  272.30 

DISTANCE  FROM  BASELINE 

TO  WATERLINE: 

20.30 

SHIP  SPEED:  20.00  KNOTS 

PREDOMINANT  HEADING  : 

135.  DEG 

SNP  OUTPUT  HEAD I NO 

REF.  : 

0  dagahaad  aoaa 

90  dag*stbd  Mam  aoaa, 

ISO  dag*fol lowing  aoaa 

SEA  TYPE  t  SHORTCRESTCD  SEAS 

SIGNIF.  WAVE  NEIOHT  : 

12.00  FEET 

MODAL  WAVE  PERIOD  : 

9.00  SEC 

STATISTIC  USED  FOR  ROLL  ITERATION  : 

2.00  •  RMS 

STH 

PROGRAM 

STATISTICAL  RESULTS 

TIME  OOMAIN 

FREQ.  DOMAIN 

CHAN  NAME  UNIT 

STOOEV 

STODEV 

1  WAVENT  FEET 

2.800 

2.980 

2  SURGE  FEET 

2.662 

2.941 

3  SWAY  FEET 

1.496 

1.588 

4  NEAVE  FEET 

1.557 

1.536 

5  ROLL  OEG 

3.338 

4.083 

6  PITCH  DECS 

0.472 

0.511 

7  YAW  DEO 

0.575 

0.653 

8  WVHTP1  FEET 

2.779 

2.980 

9  WVHTP2  FEET 

2.550 

2.980 

NO  OF  WAVE  POINTS:  2 

List  of 

Wsva  Points 

NO  XLOC 

YLOC  HOC 

NAME 

1  0.8 

0.0  >9.5 

SONAR  DOME 

2  19.8 

20.8  33.0 

STERN  PORT  SIDE 
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Table  12.  (Continued) 


NO  Of  POINTS!  2 

List  of  Point* 


NO 

XLOC 

VLOC 

ZLOC 

NAME 

r 

S  .5 

•is.o 

62.0 

BRIDGE  STBO  SIDE 

2 

14.4 

0.0 

51.0 

HELO  DECK  BULLSETE 

NO  Of  CHANNELS:  9 

list  of  Channels  with  Associated  Points 
CHANNEL  POINT 


NO  NAME  TYPE 

UNIT 

SYSTEM 

NO 

XLOC 

YLOC 

ZLOC 

NAME 

1 

WAVEHT 

DSP 

f£ET 

EARTH 

0 

10.29 

0.0 

20.3 

Origin  (LCG,  CL.  WP> 

2 

ROLL 

ANG 

OEG 

EARTH 

0 

10.29 

0.0 

20.3 

Origin  (LCG.  CL,  WP) 

3 

PITCH 

ANG 

DEG 

EARTH 

0 

10.29 

0.0 

20.3 

Origin  (LCG,  CL,  WP) 

4 

HEAVE 

DSP 

fEET 

EARTH 

0 

10.29 

0.0 

20.3 

Oriatn  (LCG,  CL,  WP) 

5 

RELHOT 

DSP 

fEET 

EARTH 

1 

0.80 

0.0 

-9.5 

SONAR  DOME 

6 

VERT 

ACC 

G-S 

EARTH 

1 

5.50 

-15.0 

62.0 

BRIDGE  STSD  SIDE 

7 

VERT 

VEL 

fPS 

EARTH 

2 

14.40 

0.0 

51.0 

HELO  OECK  BULLSEYE 

8 

LATE 

ACC 

G-S 

EARTH 

2 

14.40 

0.0 

51.0 

HELO  DECK  BULLSEYE 

9 

SLATE 

ACC 

G-S 

SHIP 

2 

14.40 

0.0 

51.0 

HELO  DECK  BULLSEYE 

r 

N  1  N  1 

N  U 

M  AN 

ALT 

8  I  S 

|  CHAN  TITLE  UNITS  NEAN  STO.  DEV.  NAX  MIN  | 


WAVEHT 

DSP 

fEET 

-4.738E-03 

2.800E*00 

8.089E*00  - 1 .077E+01 

2 

ROLL 

ANG 

DEG 

-8.978E-03 

3.338E*00 

1 .0156*01  -8.743E+G0 

3 

PITCH 

ANG 

DEG 

1.697E-03 

4.720E-01 

1 .51SE*00  -1.3S8E*00 

4 

HEAVE 

DSP 

fEET 

1.868E-03 

1.557E*00 

5.098E*00  -6.218E+00 

5 

RELMOT 

OSP 

fEET 

4.202E-02 

3.562E+00 

1 . 101E*01  -1.305E+01 

6 

VERT 

ACC 

O-S 

6.821E-06 

4.163E-02 

3.269E-01  - 1 .4026-01 

7 

VERT 

VEL 

fPS 

1.808E-03 

1.084E+00 

3.972E*00  -3.220E*00 

8 

LATE 

ACC 

G-S 

1.817E-07 

2.S87E-02 

1.686E-01  -7.665E-02 

HI 

SLATE 

ACC 

O-S 

-4.422E-05 

7.559E-02 

2.097E-01  -2.403E-01 

CHANNEL  NO. /TITLE  P«Sk  N«Sn  STDOEV 


1 

WAVEHT 

DSP 

-1.077E*01 

-4.7381-03 

2.800E*00 

2 

ROLL 

ANG 

1.01SE*01 

-8.978E-03 

3.3388*00 

3 

PITCH 

ANG 

1 .51SE+00 

1.697E-03 

4.720E-01 

4 

HEAVE 

DSP 

-6.218E*00 

1.868E-03 

1.557E*00 

5 

RELMOT 

DSP 

-1.30SE+01 

4.202E-02 

3.562E*00 

6 

VERT 

ACC 

3.269E-01 

6.821E-06 

4. 163E-02 

7 

VERT 

VEL 

3.9721*80 

1.808E-03 

1.084E*00 

8 

LATE 

ACC 

1.686E-01 

1.817E-07 

2.587E-02 

9 

SLATE 

ACC 

-2.403E-01 

-4.422E-05 

7.559E-02 

Total 

c. 

i 

C 

of  data 

records  this  run 

■  3601 
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Table  13.  Example  of  AR3.ASC  file. 


3601 

9 

1 

1 

-2.800 

4.369 

0.014 

-2.212 

0.097 

0.000 

0.000 

0.000 

2 

-0.076 

2 

1 

-2.082 

3.328 

0.005 

-1.386 

0.271 

0.327 

2.536 

0.169 

2 

-0.240 

3 

1 

-1.307 

2.143 

0.037 

-0.428 

0.151 

0.020 

3.148 

0.071 

2 

-0.110 

4 

1 

-0.583 

0.837 

0.101 

0.585 

-0.221 

-0.001 

3.456 

0.062 

2 

-0.077 

5 

1 

0.034 

-0.521 

0.183 

1.559 

-0.750 

-0.024 

3.391 

0.046 

2 

-0.037 

6 

1 

0.638 

-1.872 

0.260 

2.415 

-1.200 

-0.037 

2.961 

0.031 

2 

0.000 

7 

1 

1.245 

-3.152 

0.319 

3.080 

-1.386 

-0.053 

2.242 

0.010 

2 

0.041 

8 

1 

1.706 

-4.334 

0.345 

3.515 

-1.289 

-0.055 

1.330 

0.000 

2 

0.069 

9 

1 

1.763 

-5.372 

0.332 

3.694 

-1.066 

-0.060 

0.322 

-0.017 

2 

0.101 

10 

1 

1.333 

-6.259 

0.281 

3.618 

-0.898 

-0.059 

-0.663 

-0.025 

2 

0.124 

Table  14.  Example  of  ACTHLOG.TEX  file. 

ACTH  LOG  RUN  SUMMARY 

TRIAL:  DD965  NUSC  SONAR  STUDY  (ARMORED,  TRIMMED 

ACTH  DATA  PATH  :  D:\ACTHDATA\SPDD965A 

TYPE  CODE  :  BI  -  BINARY,  AS  -  ASCII 


RUN  TYPE  TIME  DATE-TIME-GROUP  COMMENTS 


1 

BI 

20.0 

MIN 

032105L 

SEP89 

SC 

V-  0 

HD=  90 

SWH-12 . 0 

TO- 

9 

2 

BI 

20.0 

MIN 

032105L 

SEP89 

SC 

V-20 

HD=  45 

SWH-12 . 0 

TO- 

9 

3 

BI 

20.0 

MIN 

032106L 

SEP89 

SC 

V-20 

HD-135 

SWH-12 . 0 

TO- 

9 
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Table  15.  ACTH  error  message  summary. 


ERROR 

MESSAGE 

1 

ERROR  -  ACTH  program  stopped. 

CHANNEL  RESPONSE  POINT 

I  J  K 

does  not  have  a  corresponding  wave  point  number 
in  ACTH.INP 

2 

STH  run  N  does  not  exist 

3 

STH  run  N  skipped  because  there  are  no  wave 
points  in  the  STH  run 

4 

STH  run  X  skipped  because  the  STH  wave  points 
do  not  match  the  ACTH  wave  points 

5 

All  STH  runs  were  successfully  completed 

€0 


Table  16.  Example  of  roll  angle  RSV  table. 


V 

0 

TO 

9 

HEN) 

0 

1.0/10 

00965  HUSO  SOM  SHOT  (MOO,  1*1*0  «T  HU  .2*  OO  5/13/85  HU 

MORTCRESTB 

SIGNIFICANT  HAVE  tCIGHT  ■  12.00  FEET 

NIL  ANCLE 
(DEG) 

SIGNIFICANT  VNJLE  /  BEOLNTBO  NODAL  PERIOD  (TOE) 

SHIP  1CA01NG  ANOLE  IN  DESKS 

STB  KAN 

15  30  45  60  75  90  1C5  13 

1.49/10  1.66/10  1.87/10  2.04/10  2.14/10  2.16/10  2.09/10  1.95/10 

135 

1.75/TO 

150 

1.54/11 

166 

1.37/11 

FQUJQU 

180 

1.30/11 

11 

3.00/15 

3.12/15 

3J4/1S 

3.61/15 

3.85/15 

4.01/15 

4.05/15 

3.96/15 

3.79/15 

3.54/15 

3.28/15 

3.00/15 

2.95/15 

W 

4.80/16 

4.91/16 

5.20/16 

5.55/16 

5.87/16 

6.0V16 

6.15/16 

6.08/16 

5.83/16 

5.50/16 

5.14/16 

4.86/16 

4.74/16 

15 

5.56/16 

5.71/16 

6.03/16 

6.44/16 

6.80/16 

7.04/16 

7.12/16 

7.00/16 

6.77/16 

6.59/16 

5.9B/16 

5.66/16 

5.53/16 

17 

5.6V  16 

5.79/16 

6.12/16 

6.52/16 

6.89/16 

7.14/16 

7.23/16 

7.13/16 

6.88/16 

6.46/16 

6.07/16 

5.74/16 

5.61/16 

19 

5.38/16 

5.51/16 

5.62/16 

6.21/16 

6.56/16 

6.80/16 

6.8E/16 

6.79/16 

6.54/16 

6.16/16 

5.7&/16 

5.4V16 

5.34/16 

21 

4.96/16 

5.09/16 

5.36/16 

5.75/16 

6.07/16 

6.29/16 

607/16 

6.28/16 

6.06/16 

5.72/16 

5.35/16 

5.06/16 

4.94/16 

s 

9 

1.19/  9 

1.2V  9 

1.44/  9 

1.66/10 

1.92/10 

2.13/10 

2.29/11 

2.35/11 

2.33/12 

2.23/12 

2.09/12 

1.97/13 

1.92/13 

11 

1.95/12 

2.04/12 

2.29/12 

2.6V14 

3.09/15 

3.51/15 

3.87/15 

4.09/15 

4.17/15 

4.11/15 

3.96/15 

3.86/15 

3.80/15 

13 

3.09/15 

3.22/15 

3.55/15 

4.02/15 

4.55/15 

5.06/15 

5.45/15 

5.68/15 

5.72/15 

5.59/15 

5.37/15 

5.16/15 

5.08/15 

15 

3.91/15 

4.06/1S 

4.40/15 

4.89/15 

5.40/15 

5.86/16 

6.19/16 

6J4/16 

6.29/16 

6.06/16 

5.78/16 

5.52/16 

5.42/16 

17 

4.16/15 

4.31/15 

4.66/16 

5.11/16 

5.58/16 

5.97/16 

6.22/16 

6  JO/16 

6.20/16 

5.94/16 

5.6Q/ 16 

5.32/16 

5.3/16 

19 

4.06/16 

4. 20/16 

4.52/16 

4.94/16 

5.36/16 

5.69/16 

5.89/16 

5.92/16 

5.76/16 

5.51/16 

5.17/16 

4.86/16 

4.77/16 

21 

3.81/16 

3.92/16 

4.22/16 

4.59/16 

4.96/16 

5.25/16 

S.4Q/16 

5.41/16 

5.28/16 

4.99/16 

4.66/16 

4.39/16 

4.28/16 

10 

9 

1.06/6 

1.12/8 

1.31/  8 

1.6Q/9 

2.00/11 

2.49/0 

2.99/14 

3.41/14 

3.80/14 

3.85/15 

3.93/15 

3.97/15 

3.98/15 

11 

1.52/10 

1.61/10 

1.86/11 

2.31/14 

2.97/15 

3.74/15 

4.50/15 

5.09/15 

5.48/15 

5.84/15 

5.70/15 

5.7V15 

5.70/15 

13 

2.15/15 

2.27/15 

2.62/15 

3.16/15 

3.W/15 

4.75/15 

5.50/16 

6.08/16 

6J7/16 

6.45/16 

6.39/16 

6.3Q/16 

6.27/16 

15 

2.78/15 

2.90/15 

3.27/15 

3.84/16 

4.52/16 

5.3/16 

5.85/16 

6.28/16 

6.47/tt 

6.44/16 

6.26/16 

6.11/16 

6.04/16 

17 

3.06/16 

3.21/16 

3.57/16 

4.06/16 

446/16 

5.24/16 

5.72/16 

6.02/16 

6.11/16 

6.00/16 

5.78/16 

5.56/16 

5.49/16 

19 

3.12/16 

3.24/16 

3.56/16 

4.0Q/16 

4.50/16 

4.97/16 

5.34/16 

5.55/16 

5.57/16 

5.42/16 

5.17/16 

4.96/16 

4.87/16 

21 

2.96/16 

3.08/16 

3.37/16 

3.78/16 

4.19/16 

4.56/16 

4.87/16 

5.01/16 

4.99/16 

4.82/16 

4.58/16 

4.38/16 

4.27/16 

15 

9 

0.94/7 

1.01/  7 

1.21/8 

146/13 

2.69/14 

4.00/14 

5  JO/14 

6.29/14 

6.92/17 

7.23/17 

7.38/17 

7.42/17 

7.44/17 

11 

1.29/9 

1.36/9 

143/10 

2.26/15 

3.47/15 

4.94/15 

6.30/15 

7J4/15 

7.96/17 

8.3/17 

6.30/17 

8.29/17 

8.28/17 

13 

1.66/12 

1.76/13 

2.12/15 

2.84/15 

3.99/16 

5.33/16 

6.54/16 

7.45/16 

7.97/17 

8.13/17 

8.07/17 

7.98/17 

7.92/17 

15 

2.07/15 

2.20/15 

2.60/15 

346/16 

4.26/16 

5.3V  16 

6.34/16 

7.08/16 

7.44/17 

7.46/17 

7JJ/1V 

7.15/17 

7.08/17 

17 

2.36/16 

2.49/16 

2.67/16 

3.46/16 

4.27/16 

5.14/16 

5.91/16 

6.45/16 

6.70/17 

6.67/17 

6.46/17 

6.3/17 

6.1V17 

19 

2.45/16 

2.57/16 

2.91/16 

3.42/16 

4.08/16 

4.78/16 

SJ8/16 

5.7»/16 

5.94/17 

5.88/17 

5.63/17 

5.40/17 

5.31/17 

21 

2.39/16 

2.50/16 

2.80/16 

3.24/16 

3.79/16 

'.JV16 

4.84/16 

5.14/16 

5.24/17 

5.13/17 

4.89/17 

4.67/17 

4.59/17 

a 

9 

0.64/7 

0.901/  7 

1.14/  7 

2.19/0 

341/0 

5.43/0 

6.77/19 

7.71/19 

8.16/19 

6.17/19 

7.79/19 

7J9/W 

7.3/19 

11 

1.12/8 

1.19/  8 

1.40/9 

242/15 

4.30/15 

5.97/19 

7.35/19 

8.31/19 

8.78/19 

8.75/19 

8.34/19 

7.89/19 

7.71/19 

13 

1J5/10 

1.45/11 

1.84/15 

2.91/16 

4.42/16 

5.92/19 

7.15/19 

7.99/19 

8J7/19 

8.29/19 

7.80/W 

7J7/19 

7.18/19 

15 

1.62/15 

1.78/15 

2.18/16 

3.10/16 

4.36/16 

5.61/16 

6.63/19 

7JC/19 

7.57/19 

7.44/19 

6.99/19 

6.51/19 

6.31/19 

17 

1.86/16 

2.00/16 

2.41/16 

3.17/16 

4.19/16 

5.20/16 

6.01/19 

6.53/19 

6.70/19 

6.53/19 

6.09/19 

5.63/19 

5.44/19 

19 

1.98/16 

2.10/16 

2.47/16 

3.11/16 

3.93/17 

4.74/17 

5.38/19 

5.77/19 

5.87/19 

5.68/19 

5.26/19 

4.83/19 

4.65/19 

21 

1.97/16 

2.09/16 

2.41/16 

2.94/17 

3.62/17 

4.28/17 

4.79/19 

5.06M9 

5.13/19 

4.93/19 

4.55/19 

4.16/19 

3.99/19 

3 

9 

0.75/  6 

0.81/6 

1.11/12 

3.71/17 

6.46/17 

8.73/17  10.43/17  11.46717  11.84/17  11.51/17  10.52/17 

9.39/17 

8.92/17 

11 

0.98/7 

1.04/8 

1.42/15 

346/17 

6.18/17 

8.31/17 

9.91/17  10.90/17  11.5/17  10.93/17  10.01/17 

8.94/17 

8.50/17 

a 

1.14/  9 

1.24/10 

149/16 

3.48/17 

5.61/17 

7.44/17 

8.82/17 

9.67/17 

9.95/17 

9.85/17 

8.82/17 

7.87/17 

7.47/17 

15 

1.32/15 

1.45/15 

1.93/16 

3.33/17 

5.06/17 

6.57/17 

7.71/17 

8.40/17 

8.61/17 

8.32/17 

7.57/17 

6.73/17 

6.38/17 

17 

1.51/16 

1.66/16 

2.10/16 

3.20/17 

4.58/17 

5.81/17 

6.73/17 

7.2V17 

7.41/17 

7.12/17 

6.46/17 

5.72/17 

5.40/17 

19 

1.62/16 

1.76/16 

2.16/17 

3.03/17 

4.14/17 

5.14/17 

5J^17 

6.31/17 

6.59/17 

6.11/17 

5.52/17 

4.87/17 

4.59/17 

21 

146/16 

1.77/17 

2.12/17 

2.83/17 

3.74/17 

4.55/17 

5.1V17 

5.49/17 

5.53/17 

5.27/17 

4.74/17 

4.17/17 

3.92/17 
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Table  17.  Example  of  vertical  velocity  at  a  point  RSV  table 


0098  MJSC  SMAR  STUDY  (/WOO,  TRIMG)  BY  HU  .22*  Oft)  5/13/S  TXA 

•ORTOeSIB 

SIWIFICAMT  UM  ICIGKT  •  12.00  FST 

(£LO  CEOC  aUSEYE  XFP  >  14.40  YU.  «  O.CD  ZBL  ■  51.00 

VERTICAL  VELOCITY 
(FEET/SC) 

SIOIIFICANT  VALUE  /  BCIMTERS  MCDAL  POM  CD  (TOE) 

SHIP  ICAO  IMG  ANGLE  IN  OEGRSS 


V 

TO 

ICAO 

ST®  SEAM 

PCLLCU 

0 

15 

30 

45 

60 

75 

90 

18 

1® 

05 

ISO 

166 

180 

0 

9 

1.7V10 

1.9V10 

2.29/10 

2.71/9 

3.07/  9 

33V  8 

3.41/  8 

33V  8 

3.1V  9 

2.7V  9 

231/10 

1.94/10 

1.7V10 

11 

2.07/11 

2.17/11 

2.42/11 

2.73/11 

3.01/10 

3.20/10 

3.27/10 

3.21/10 

3.0V10 

2.75/11 

2.43/11 

2.1V11 

2.07/11 

13 

2.20/13 

2.27/13 

2.44/13 

2.66/0 

2.86712 

3.00/12 

3.8/12 

3.01/12 

2.87/12 

2.67/0 

2.45/0 

2.27/13 

2.20/13 

15 

2.21/14 

2.26/14 

2-3VU 

2.53/14 

2.6V14 

2.7V14 

2.8VU 

2.79/14 

2.69/M 

2.54/14 

2.3V14 

2.2VU 

2.21/14 

17 

2.W16 

2.19/16 

2.28/16 

2.39/16 

2.50/15 

2.58/15 

231/15 

2.5V15 

2.51/15 

2.40/16 

2.2V  16 

2.19/16 

2.1V16 

19 

2.07/17 

2.10/17 

2.16/17 

2.25/17 

2.33717 

2.39/17 

2.41/17 

2.39/17 

2.33/17 

2.25/17 

2.17/17 

2.10/17 

2.07/17 

21 

1.9V18 

2.00/18 

2.8/18 

2.11/18 

2.18/18 

2.2V18 

2.24/18 

2.22/18 

2.  IV 18 

2.1V18 

2.8/18 

2.0V18 

1.9V  18 

5 

9 

2.01/9 

2.15/  9 

2.4V  8 

2.8/8 

3.1V  8 

334/8 

3.3V  8 

3.2V  8 

2.9V  9 

2.49/  9 

2.01/10 

1.5V11 

1.40/12 

11 

2.33/10 

2.41/10 

2.64/10 

2.90/10 

3.11/10 

3.24/10 

3.23710 

3.10/10 

2.84/11 

2.49/12 

2.11/0 

1.81/13 

1.6V13 

13 

2.45/11 

2.51/11 

2.S/11 

2.8V11 

2.97/11 

3.06/12 

3.03/12 

2.91/12 

2.69/0 

2.4V14 

2.U/U 

1.9VU 

1.84/14 

15 

2.45/13 

2.49/13 

2.5V  13 

2.70/0 

2.79/0 

2.84/0 

231/14 

2.70/14 

2.5V15 

23V 15 

2.11/15 

1.95/16 

1.89/16 

17 

23V14 

2.40/14 

2.47/14 

2.54/14 

2.61/15 

233/15 

2.59/15 

2.50/16 

2.36/16 

2.20/17 

2.04/17 

1.9V17 

1.8V17 

19 

2.27/16 

2.29/16 

2.34/16 

2.39/16 

2.43/16 

2.44/17 

2.4C/17 

232/17 

2.21/18 

2.08/18 

1.95/18 

1.86/19 

1.83/19 

21 

2.16/17 

2.17/17 

2.20/17 

2.24/18 

2.27/18 

2.27/18 

2.23/18 

2.17/19 

2.07/20 

1.96/20 

1.86/20 

1.79/20 

1.77/20 

10 

9 

2.12/8 

2.27/8 

2.62/8 

2.99/8 

3.27/8 

3.4V  8 

339/8 

3.1V  8 

2.8V  8 

233/10 

1.7V10 

1JV13 

1.09/13 

11 

2.50/9 

2.59/9 

2.81/9 

3.0V  9 

335/9 

3.32710 

3.26/10 

3.8/10 

2.7V11 

2.30/0 

137/15 

1.51/15 

1.37/15 

13 

2.66/10 

2.71/10 

235/10 

3.00/10 

3.11/11 

3.0/11 

3.8/12 

2.86/12 

2.5V14 

2.24/15 

1.90/16 

1.64/17 

1.54/17 

15 

2.66/12 

2.69/12 

2.78/12 

2.87/12 

2.92/12 

2.91/0 

23V14 

236/15 

2.4V  16 

2.14/17 

1.8V17 

1.69/18 

1.62/18 

17 

2.58713 

2.60/13 

2.65/0 

2.7W4 

2.73714 

2.70/15 

231715 

2.46/17 

2.26/17 

2.04/18 

133/19 

1.6V19 

1.6VW 

19 

2.46/15 

2.47/15 

2.50/15 

2.53715 

2.54/16 

2.50/16 

2.41/17 

2.28/18 

2.11/19 

1.9V2D 

1.77/20 

1.8/21 

1.61/21 

21 

2-33/16 

2.34/17 

2.36/17 

237/17 

2-36/17 

232/18 

234/18 

2.0/20 

1.9V20 

1.83/21 

1.70/22 

1.61/22 

1.SV22 

15 

9 

2.37/  7 

2.5V  7 

2.89/  7 

3.2V  7 

3.52/7 

33V  7 

3.5V  7 

3.25/8 

23V  8 

2.24/8 

1.6V  9 

1.10/17 

0.87/17 

11 

2.78/8 

2.88/8 

3.1V  8 

334/ 8 

3.49/8 

3.51/  9 

33V  9 

3.09/10 

23V10 

2.19/12 

1.6V20 

1.2V20 

1.12/20 

13 

2.59/10 

2.99/10 

3.12/10 

3.25/10 

332710 

3.29/10 

3.14/11 

237/12 

2.51/0 

2.10/20 

1.70/20 

1.40/20 

1.29/20 

IS 

2-92/11 

2.95/11 

3.02/11 

3.09/11 

3.11/12 

3.8/12 

239/0 

236/14 

235/16 

2.01/20 

1.69/20 

1.46/20 

136/20 

17 

2.81/12 

2.83/12 

2.87/12 

2.901/13 

239/0 

231/14 

236/15 

236/16 

2.19/20 

1.91/20 

136/21 

1.46/22 

1.41/22 

19 

2.67/14 

2.M/14 

2.70714 

2.71/15 

238/15 

2.59/16 

2.4V17 

2.27/18 

2.04/20 

131/22 

1.61/22 

1.47/23 

132/23 

21 

2.52/15 

2.53715 

2.53/16 

2.53/16 

239/17 

230/17 

2.2V  18 

2.11/20 

1.92/22 

1.72/23 

1.35/24 

1.44/24 

1.40/24 

20 

9 

2.97/6 

3.11/  6 

3.4V  6 

3.7V  6 

3.94/6 

3.95/  6 

3.77/6 

339/6 

235/6 

2.2V  6 

1.33/13 

0.95/19 

0.69/19 

11 

3.42/6 

3.49/  6 

3.67/  6 

334/6 

3.9V  6 

334/8 

331/8 

33V  9 

2.70/10 

2.12/10 

1.54/19 

1.09/23 

0.91/23 

13 

3.47/9 

3.52/9 

3.61/9 

3.69/9 

339/9 

3.57/10 

332/10 

2.96/11 

2.50/0 

2.01/19 

1.54/23 

1.20/73 

1.07/23 

15 

337/10 

339/10 

3.43/10 

3.45/10 

3.41/11 

3.27/11 

3.03/12 

2.71/0 

231/15 

1.90/23 

1.53/26 

1.27/26 

1.17/26 

17 

3.«/n 

3.19/11 

3.21/12 

3.20/12 

3.0/12 

2.99/0 

2.77/14 

2.4V16 

2.15/19 

1.80/26 

1.50/26 

1.29/26 

1.22/26 

19 

2.98TO 

2.99/13 

2.99/0 

2.96714 

2.88714 

2.74/15 

2.54/16 

2.2V19 

2.0VZ3 

1.71/26 

1.46/27 

1.30/27 

1.24/27 

21 

2.79/14 

2.79/15 

2.77/15 

2.74/15 

236/16 

2.SV17 

234/19 

2.12/20 

1,87/23 

1.63/27 

1.42/27 

1.29/27 

1.24/27 

S 

9 

3.66/6 

3.7V  6 

4.04/6 

4.29/6 

43V  6 

433/6 

4.8/6 

3.57/  6 

2.9V  6 

2.20/17 

1.46/17 

0.8/17 

0.5V17 

11 

4.28/6 

4J3/6 

4.44/6 

4.51/  6 

437/6 

4.27/6 

3.91/6 

3.39/6 

2.77/17 

2.09/17 

1.44/17 

0.94/17 

0.74/17 

O 

4.26/6 

4.2V  6 

4.31/  6 

4.29/6 

4.1V  6 

3.94/6 

3.57/10 

3.09/10 

2.SV17 

1.95/17 

1.42/S 

1.8/S 

0.88/33 

15 

4.01/9 

4.02/9 

4.01/9 

3.95/10 

331/10 

3.57/10 

3.2V11 

2.8VO 

2-32/17 

133/33 

1.40/35 

1.09/S 

0.9VS 

17 

3.71/10 

3.71/10 

3.68/11 

331/11 

3.46/12 

3.23/12 

2.92/0 

2.55/17 

2.0/17 

1.72/33 

1.37/S 

1.13/13 

1.04/S 

19 

3.42/12 

3.41/12 

337/12 

339/0 

3.15/0 

2.94/14 

236/17 

233/17 

1.9V33 

133/S 

134/S 

1.14/S 

1.07/S 

21 

3.15/13 

3.14/13 

3.10/14 

3.02/14 

238/15 

23V17 

2.44/17 

2.15/19 

134/33 

1.55/33 

1.30/S 

1.14/S 

1.8/S 
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Table  18.  Example  of  SMP.INP  file. 


DD965  NUSC 

SONAR  STUDY  (ARMORED. 

TRIMMED 

8Y  SOW  .22* 

OA)  5/13/85  TRA 

6  0 

2 

0  0 

0 

2 

FEET 

1.9905  32. 

17250. 

00001279 

529.0000 

54.9000  20. 

3300 

8282. OC 

25. 

0000 

5.0000 

0.0000 

3.1700 

0.0000  23. 

1700 

0.250C 

0. 

4150 

0.2500 

22  0 

0.2500 

8 

0 

0.2500 

0.00 

7.20 

8.50 

6.40 

0.90 

0.30 

0.55 

1.05 

0.2500 

-9.42 

-7.12 

-4.12 

-0.12 

3.88 

7.88 

13.88 

20.33 

0.7500 

8 

0 

0.7500 

0.00 

7.10 

9.70 

7.30 

2.60 

1.50 

2.00 

2.6S 

0.7500 

-9.51 

-8.11 

-4.11 

•0.11 

3.89 

7.89 

13.89 

20.33 

1.2500 

8 

0 

1.2500 

0.00 

5.60 

6.45 

3.45 

2.40 

2.70 

3.50 

4.30 

1.2500 

-7.60 

-6.10 

•3.10 

•0.10 

3.90 

7.90 

13.90 

20.33 

2. 0000 

8 

0 

2.0000 

0.00 

0.25 

0.75 

3.00 

4.50 

5.40 

6.10 

6.75 

2.0000 

•4.04 

-2.09 

-0.09 

3.91 

7.91 

11.91 

15.91 

20.33 

3.0000 

8 

0 

3.0000 

0.00 

2.45 

3.45 

4.90 

6.90 

8.20 

9.15 

10.00 

3.0000 

-0.08 

0.92 

1.92 

3.92 

7.92 

11.92 

15.92 

20.33 

4.0000 

8 

0 

4.0000 

0.00 

3.55 

S.OD 

6.85 

9.45 

11.05 

12.20 

13.25 

4.0000 

-0.07 

0.93 

1.93 

3.93 

7.93 

11.93 

15.93 

20.33 

5.0000 

8 

0 

5.0000 

0.00 

4.50 

6.35 

8.85 

12.00 

13.90 

15.25 

16.40 

5.0000 

-0.06 

0.94 

1.94 

3.94 

7.94 

11.94 

15.94 

20.33 

£.0000 

8 

0 

6.0000 

0.00 

5.50 

7.75 

10.95 

14.55 

16.80 

18.25 

19.40 

6.0000 

-0.04 

0.96 

1.96 

3.96 

7.96 

11.96 

15.96 

20.33 

7.0000 

8 

0 

7.0000 

0.00 

6.50 

9.35 

13.10 

17.25 

19. 65 

21.10 

22.10 

7.0000 

-0.03 

0.97 

1.97 

3.97 

7.97 

11.97 

15.97 

20.33 

8.0000 

8 

0 

8.0000 

0.00 

7.35 

10.80 

15.20 

19,90 

22.30 

23.70 

24.55 

8.0000 

-0.02 

0.98 

1.98 

3.98 

7.98 

11.98 

15.98 

20.33 

9.0000 

8 

0 

9.0000 

0.00 

8.15 

15.00 

19.00 

22.40 

24.65 

25.80 

26.45 

9.0000 

-0.01 

0.99 

2.99 

4.99 

7.99 

11.99 

15.99 

20.33 

10.0000 

8 

0 

10.0000 

0.00 

8.70 

16.35 

20.65 

24.10 

26.25 

27.10 

27.45 

10.0000 

0.00 

1.00 

3.00 

5.00 

8.00 

12.00 

16.00 

20.33 

11.0000 

8 

0 

11.0000 

0.00 

8.80 

16.80 

21.25 

24.65 

26.70 

27.45 

27.50 

11.0000 

0.01 

1.01 

3.01 

5.01 

8.01 

12.01 

16.01 

20.33 

12.0000 

8 

0 

12.0000 

0.00 

7.90 

15.80 

20.25 

23.95 

26.40 

27.30 

27.50 

12.0000 

0.02 

1.02 

3.02 

5.02 

8.02 

12.02 

16.02 

20.33 

13.0000 

10 

0 

13.0000 

0.00 

1.00 

2.25 

7.60 

15.30 

19.60 

23.40 

25.45 

26.75 

27.25 

13.0000 

0.03 

0.50 

1.00 

2.03 

4.03 

6.03 

9.03 

12.03 

16.03 

20.33 

14.0000 

10 

0 

14.0000 

0.00 

0.50 

1.00 

1.00 

8.00 

15.70 

19.90 

22.50 

24.75 

26.65 

14.0000 

0.04 

0.05 

0.24 

1.04 

4.04 

6.04 

8.04 

10.04 

13.04 

20.33 
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Table  18.  (Continued) 


15.0000 

10  0 

15.0000 

0.00  0.50  1.00 

1.00  1.00  1.00 

6.00 

15.40 

23.35  25.90 

15.0000 

0.06  0.07  0.26 

2.06  3.06  4.06 

6.06 

8.06 

13.06  20.33 

16.0000 

8  0 

16.0000 

0.00  6.40  12.35 

18.00  21.35  23.10 

24.10 

25.00 

16.0000 

7.82  8.57  9.57 

11.07  13.07  15.07 

17.07 

20.33 

17.0000 

8  0 

17.0000 

0.00  7.00  13.55 

17.40  19.50  21.00 

22.70 

24.00 

17.0000 

10.08  11.08  12.08 

13.08  14.08  15.08 

17.08 

20.33 

18.0000 

8  0 

18.0000 

0.00  5.45  12.40 

16.95  19.40  20.80 

21.75 

22.95 

18.0000 

12.44  13.09  14.09 

15.09  16.09  17.09 

18.09 

20.33 

19.0000 

8  0 

19.0000 

0.00  3.80  8.30 

12.65  16.00  18.00 

20.00 

21.80 

19.0000 

14.80  15.10  15.60 

16.10  16.60  17.10 

18.10 

20.33 

19.7500 

8  0 

19.7500 

0.00  6.00  9.10 

12.75  16.00  18.00 

19.30 

20.80 

19.7500 

16.51  16.86  17.11 

17.36  17.61  17.96 

18.61 

20.33 

6 

8.0000  13.0662 

3.0000 

8.0000 

20.5000  8.7300 

40.0000 

9.0000 

21.1800  6.6500 

51.0000 

10.0000 

21.5600  5.5850 

59.0000 

11.0000 

21.7500  5.3400 

58.0000 

12.0000 

21.5800  5.8900 

58.0000 

13.0000 

21.0000  7.0300 

56.0000 

12.5000 

15.5364  15.5388 

0.0000  0.0250 

0.0500 

6. 

7375 

19.3290 

19.8580  11.0000 

16.4300  16.3600 

19.4140 

2 

19.7640  11.0000 

2.3500  2.3600 

18.3890 

18.5104  17.2500 

15.8900  16.0900 

18.3780 

18.5310  12.7500 

4.0900  4.0900 

18.3890 

18.5104  2.2500 

13.4800  13.8200 

16.7625 

16.8431  15.5000 

11.9900  12.1700 

16.7433 

16.8601  12.7500 

6.5800  6.4100 

16.7625 

16.8431  6.7500 

11.0300  11.4900 

0  0 
2  1 

0 

1  SRIOCE  STIO  SIDE 

5.5000 

*15. 

>000  62.0000 

2  HEIO  DECK  tULLSEYE 

2  1 

14.4000 

0. 

0000  51.0000 

1  SONAR  DOME 

1  0.8000 

0.0000 

•9. 

5000  12.1000 

2  STERN  PORT  SIDE 

3  19.8000 

20.8000 

33.0000  12.1000 

1 

2.0000S1CN1 ft CANT 

12.0000 

STOP 
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Table  19.  DD-965  computer-generated  hydrostatics. 


DD965  NUSC  SOMA*  STUDY 

(ARMOREO 

TRIMMED 

BY  BOW  .22'  OA)  5/13/85  TRA 

TASLE 

OF  SHIP 

PARTICULARS 

SHIP  CHARACTERISTICS  * 

SHIP  LENGTH  (LPP) 

529.00 

FEET 

LENGTH/BEAM 

9.636 

BEAM  AT  MIDSHIPS 

54.90 

FEET 

BEAN/ORAFT 

2.700 

DRAFT  AT  MIDSHIPS 

20.33 

FEET 

DRAFT/BEAM 

0.370 

DISPLACEMENT  (S.W.) 

8282.1 

L.  TONS 

0ISPL/(.01lPP)**3 

55.946 

DESIGN  SHIP  SPEED 

25.00 

KNOTS 

FROUOE  NUMBER 

0.324 

VERTICAL  LOCATIONS  • 

C.  OF  GRAVITY  (VCO)* 
C.  OF  GRAVITY  (KG)** 

2.84 

FEET 

VCG/BEAH 

0.052 

23.17 

FEET 

KG/BEAN 

0.422 

METACENTRIC  HI.  (GM) 

3.17 

FEET 

GM/BEAM 

0.058 

METACENTER  (KM)** 

26.34 

FEET 

KM/BEAM 

0.480 

C.  OF  BUOYANCY  (KB)** 

12.19 

FEET 

KB/BEAM 

0.222 

LONGITUDINAL  LOCATIONS***  - 

C.  OF  GRAVITY  (LCG) 

272.35 

FEET 

LCO/LENGTH 

0.515 

C.  OF  BUOYANCY  (LCB) 

272.35 

FEET 

LCS/LENGTH 

0.515 

C.  OF  FLOTATION  (LCF) 

304.49 

FEET 

LCF/LENGTH 

0.576 

NOTION  CHARACTERISTICS 

- 

ROLL  GYRAD1US 

22.78 

FEET 

RG/BEAM 

0.415 

PITCH  GYRADIUS 

132.25 

FEET 

PO/LPP 

0.250 

YAW  GYRAOIUS 

132.25 

FEET 

YO/LPP 

0.250 

ESTIMATED  ROLL  PERIOD 

15.86 

SECONDS 

ROLL  FREO  (RAO IANS) 

0.396 

COMPUTED  AREAS  • 

UATERPLANC 

WETTED  SURFACE,  HULL 

21360.4 

33382.2 

BO.  FEET 
SO.  FEET 

AUP/(LPP*BEAM) 

WS/(2L0*2BD*La) 

0.735 

0.632 

HULL  COEFFICIENTS  - 

BLOCK  (CS) 

0.491 

SECTION  (CX) 

0.842 

PRISMATIC  (CP) 

0.582 

•  WATERLINE  REFERENCE 
*•  KEEL  REFERENCE 
•**F.P.  REFERENCE 
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Table  20.  Example  of  response  amplitude  operator  magnitudes  and 
phases  for  the  DD-965  6 DOF  responses. 


00965  MJK  DM  STUJY  (MOB,  TRIMS)  OY  SOW  32*  0A)  5/13/85  TRA 

CMOS  Neunxc  OPERATORS  (RMS)  MC  PHASES 

wipsp®*  20. 

DOTS 

SHIP  ODIWS 

-  45. 

(freer* 

CA  STATE: 

siouficAMT  tme  might  -12.00  fht 

MODAL  PS1ICD-  9. 

SBOPS 

STATISTIC  ■ 

2.00  (SIGNIFICANT  ) 

OCM 

9G0AE 

AM 

E 

HAY 

CAVE 

ROLL 

PITCH 

YNJ 

Am. 

PHASE 

M91. 

PHASE 

Am. 

PHASE 

Am. 

PHASE 

Am.  PHAC 

Am. 

PHAC 

0.200 

0.230 

141298-01 

136.1 

3.4970E-01 

-91.5 

949548-01 

0.1 

5.5*68-05 

-104.7 

2.63398-05  -944 

4.0147E-04 

-1.6 

0.250 

0.-V5 

1 .09578-01 

123.1 

3.19548-01 

-91.1 

947958-01 

0.1 

33458-02 

-1254 

6.51648-05  -94.8 

9.5622*04 

0.0 

0.230 

0.338 

9.02178-02 

117.4 

3.0960E-01 

•903 

944578-01 

04 

1.45478-01 

-148.5 

1.0412E-®  -95.6 

1.SO64E-0B 

6.2 

0.300 

0.567 

8.128K-K 

114.5 

3.170S-01 

•904 

941298-01 

0.2 

4.47448-01 

1793 

1J871E-®  -964 

2.620* -05 

11.5 

0320 

0-396 

7.4V2-® 

112.0 

3.0126E-01 

-95.9 

9.77208-01 

03 

641628*01 

128.7 

141578-82  -974 

4.63B7E-09 

23 

0340 

0.426 

6429*-® 

109.9 

2.S866E-01 

-94.4 

9.723K-01 

04 

4.1123E-01 

943 

2.340B8-E  -984 

4.94748-05 

-6.2 

0360 

0.4S6 

63256E-® 

1083 

2307* -01 

-95.5 

946978-01 

0.5 

24272-01 

77.0 

2.974*-®  -99.3 

4.99S1E-0B 

-8.1 

0.380 

0.487 

5.8BZ5E-Q2 

106.8 

2.09508-01 

•924 

9411**01 

04 

1.95578-01 

66.7 

3.7329E-®  -100.6 

5.18068-03 

•8.1 

0.400 

0.519 

5.48258-02 

1064 

1 .90638-01 

•91.8 

9.55398-01 

04 

1.626*  *01 

59.4 

4 .63068-®  -M2.1 

5.4389E-0B 

-73 

0.420 

0.551 

5.11298-02 

1044 

1.73108-01 

-91.1 

9.501**01 

14 

1.44908-01 

53.7 

3.65278-®  -104 

5.72518-05 

•63 

0440 

0.504 

4.716708-02 

105.7 

1.56608-01 

-904 

946438-01 

13 

13B3S-01 

48.9 

6.905S-®  -105.7 

6.02218-05 

-5.1 

0  MO 

0417 

44390E-® 

102.9 

140938-01 

•094 

945358-01 

14 

13038-01 

444 

830BS-®  -1074 

63180E-05 

-3.7 

0.480 

0.661 

4.12578-02 

102.1 

1.29998-01 

•09.1 

948548-01 

24 

1.279718-01 

414 

9.9QB0E-®  -1104 

64002-03 

-23 

0.500 

0.606 

34178E-® 

1013 

1.1U9E-01 

*88.4 

9.56168-01 

23 

146728-01 

35.1 

1.171**01  -112.9 

6.8540E-C5 

-04 

0.S3 

0.730 

34446E-® 

1003 

941418-02 

-074 

943508*01 

24 

1454**01 

344 

1 .425**01  -116.7 

7.106* -03 

1.3 

0.550 

0.775 

34)7738-02 

993 

7.7990E-02 

•064 

1.GQQS+00 

24 

1. 23198-01 

31.9 

1.71128-01  -1214 

7.254**03 

34 

0.575 

0420 

2.71228-02 

984 

6.21678-02 

■m.2 

1.10708*00 

1.9 

1.18958-01 

294 

2.0212-01  -1264 

7.27308-05 

54 

0400 

0.867 

2Jtn-at 

963 

4425(8-02 

•04.0 

142236*00 

-0.1 

1.12508-01 

27.1 

234168-01  -132.9 

7.14*8-05 

74 

0425 

0.915 

1.97558-02 

94.7 

341668-02 

•024 

137818*00 

•44 

1.059* -01 

244 

244258-01  -140.5 

647918-05 

10.1 

0450 

0.964 

140288-Oe 

92.7 

240438-02 

•004 

1.55478*00 

•10.9 

936678-02 

223 

248098-01  -1494 

64682-05 

12.5 

0.675 

1.00 

1.23448-02 

90.7 

1.79218-02 

-78.5 

1.68268*00 

•21.5 

8.18BC-® 

203 

2.95*8-01  -160.5 

5.922K-C3 

15.2 

0.700 

1.064 

8.91058-03 

89.2 

1.17D9E-02 

-754 

142948*00 

•364 

6.90078-02 

18.1 

2.7ZZ-01  -173.1 

5.25708-05 

18.2 

0.750 

1.160 

4.028* -05 

91.1 

4.1®*-Q3 

-65.2 

7.90838-01 

•734 

443468-® 

134 

1.57468-01  160.7 

3.7050E-0 

25.9 

0.800 

1.275 

1 JSS6SE-0S 

95.5 

1.17958 -OB 

•45.5 

1.26918-01 

•10.9 

1. 97788-® 

5.5 

543678-®  1404 

2.20SS-® 

364 

0.900 

1.501 

2.97888-04 

114.0 

1.1173E-04 

214 

5.05128-05 

22.7 

232218-05 

•64.6 

2 .695* -05  1124 

5.783**04 

784 

1.000 

1.742 

9.20068-06 

149.4 

737538-05 

•1614 

641258-05 

16.1 

7.18338-05 

•1264 

146158-04  -674 

2.57478-04 

133.6 

1.100 

1.998 

4.7132*06 

-773 

34732-04 

-034 

1.0095E-03 

174 

6.0088-0 

-132.5 

335548-04  -764 

3.9089E-05 

-1654 

1.200 

2.269 

1.11628-06 

-56.0 

1.56048-04 

-107.9 

248598-05 

31.9 

1.01248-05 

•120.9 

9.24498-05  -644 

5.2220E-05 

-51.2 

1.500 

3.170 

1.00678-00 

94.5 

740158-05 

-110.7 

6.41978-06 

604 

9. 168* -04 

-110.1 

64922-06  109.9 

7.70958-06 

1664 

2.000 

4.970 

749128-09 

-10.1 

4.15098-07 

0.9 

1.51948-06 

•514 

6. 74538-06 

*172.0 

1.9962-06  -85.3 

3.391**07 

633 

NOTES:  1)  VBTTICU.  MOO  (RJ«,ttAVf  ,PlTO<>  AM  LUCM  MO  IKMSOMff  V  SEA  IT  ATI. 

2)  LATRAL  M00  (MY.MU.YMO  MS  KM.INCW  MO  OMOE  WITH  CA  IT  ATI  MO  ITATltTIC. 

3)  MU.  If  IN  (PHYS.U«TI/KX5T)**2  MO  SMI  IS  IN  DB*3I. 

4)  CADIM3  OMBfTKN:  0  OCMCAO,  90  DEO-ITO  KM,  100  OE9*OLLOW1HO  CAS. 
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Table  21.  Minimum  analysis  of  ship  responses  for  the  DD-965 
at  a  ship  speed  of  20  knots  in  bow  and  stem 
quartering  seas. 


MINIMUM  ANALYSIS 


SEA  TYPE  *  SHORTCRESTED 
SIGNIF.  WAVE  HEIGHT  -  12  FEET 
MODAL  WAVE  PERIOD  -  9  SECONDS 
SHIP  SPEED  ■  20  KNOTS 

ACTH  RUN  2  ACTH  RUN  3 

45  DEG  135  DEG 


CHAN 

NAME 

TYPE 

UNITS 

(BOW  SEAS) 
STDDEV  PEAK 

(STERN  QUART.  SEAS) 
STDDEV  PEAK 

1 

WAVEHT 

DSP 

FEET 

2.9 

-12.6 

2.8 

-10.8 

2 

ROLL 

ANG 

DEG 

1.0 

-3.7 

3.3 

10.2 

3 

PITCH 

ANG 

DEG 

0.8 

2.6 

0.5 

1.5 

4 

HEAVE 

DSP 

FEET 

2.3 

-7.2 

1.6 

-6.2 

5 

RELMOT 

DSP 

FEET 

6.0 

-19.2 

3.6 

-13.1 

6 

VERT 

ACC 

G-S 

0.11 

0.35 

0.04 

0.33 

7 

VERT 

VEL 

FPS 

1.8 

-5.3 

1.1 

4.0 

8 

LATE 

ACC 

G-S 

0.03 

0.10 

0.03 

0.17 

9 

SLATE 

ACC 

G-S 

0.04 

-0.16 

0.08 

-0.24 
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C  DECK  STH  -  simulation  Tim*  History  Program 

*  9/1/09  0i35  am 


PROGRAM  STH 


SIMULATION  TIME  HISTORY  PROGRAM 

for  Wav*  Haight  and 
th*  six-d*gr**-of-f  reedotn  motion* 

SURGE,  SWAY,  HEAVE,  ROLL,  PITCH,  and  YAW 

at  on*  speed,  on*  predominant  heading, 
and  on*  **a  condition  (identified  by 
significant  wav*  height  and  modal  wav* 
period) . 

Either  longcreated  or  ehortcrested  seas 
can  be  selected. 

Wave  height  at  points  can  be  computed 

David  Taylor  Research  Center  (DTRC) 

Cod*  1561 

C  SUBLIST 


List  Of 

subroutines 

no. 

name 

type 

description 

1 

ALGRNO 

subroutine 

Computes  area  under  a  spectrum 

2 

AT AN 2D 

function 

Arctangent  function  in  degrees  for 
any  quadrant 

3 

F-'.VSP 

subroutine 

Computes  Bretsehneider  Wave  Spectrum 

4 

CPFIT 

subroutine 

Cubic  non-parametric  spline  fit  for 
complex  data 

S 

CPLVAL 

subroutine 

Evaluates  a  complex  non-parametric 
spline 

6 

ELTXME 

subroutine 

Prints  elapssd  time 

7 

EXP 

function 

Avoid  underflow  with  F77L  EXP  routine 

e 

INTRPL 

subroutine 

Interpolation  routine 

9 

ORGTFN 

subroutine 

Reads  8MP  origin  file  to  get  6 DOF 
transfer  functions 

10 

RLITER 

subroutine 

Reads  ROLL  transfer  functions  for 

roll  iteration 


11 

RLITR 

subroutine 

Performs  roll  iteration 

12 

SCTH 

subroutine 

Computes  longcreeted/shortcreeted 
time  histories 

13 

SLSNTH 

subroutine 

Returns  location  of  last  non-blank 
character  in  a  string 

14 

SPPIT 

subroutine 

Cubic  non-parametric  spline  fit  for 

real  data 

15 

SPLVAL 

subroutine 

Evaluates  a  real  non-parametric 
spline 

16 

TPNPIT 

subroutine 

Pits  lateral  transfer  functions  for 
non-linear  roll  answer 

17 

TRPN 

subroutine 

Transfer  function  subroutine 

18 

UCASB 

subroutine 

Converts  strings  to  uppercase 

C  DIMENSIONS 


COMMON  DUMMY , US , CS , I VS , I vuS , PAGE , ECS , BELL, DISP , 

2  CLR , YS , NS , N, Somplerate , Dt , Run number , Wavsheight , Heading , 

2  Trials , Dates , Times , Locat ions , Personnels , 

2  Names, Factor (32) , Unites, 

2  Comment as, Count , B , Plimit , Nlimit , Nparom, 

2  Results (32,4) , Dindx (32,2), PIS , SMPDATAS , STHDATAS , DATAS , 

2  SHIPTYPS , SHIPS , VARIANTS , CYCLES , LSHIP , LDATAS , LSTHDATA, LSMPDATA 
CHARACTER* BO  PIS, SMPDATAS, STHDATAS, DATAS 
CHARACTER" 8  SHIPTYPS, SHIPS 
CHARACTER  VARIANTS* 1 , CYCLES*2 
INTEGER  Dindx 
COMMON  /DTITL/  DtitleS 
CHARACTER* 7 2  DtitleS 
COMMON  /BK1/  SCRMS(IO) , NMAX 
COMMON  /BK2/  UNTCONV , VKMSTR 

COMMON  /8INC0S/  SI (0<  3600) ,CO(Oi 3600) , XJTX, RDX, DRX, X2PI 
COMMON  /EMA/  EIC , ESPEED , EHEAD , ES IGWH , ETMODAL , STATIS , 

2  E8TART, SEND,  NHVf,NMU, CHONG ( 11) ,  B2  ( 11 ) , EWE (150, 11) , 

2  COEPR(10, 150, 11) ,COEPI (10,150,11) 

COMMON  /WAVEPNT/  NWPOINT , HPNTXLOC , WPNTYLOC , WPNTZLOC, WPNTN AMES , 
2  WAVEXLOC , WAVS YLOC , HAVE  Z  LOC 

DIMENSION  HPNTXLOC ( 3 ) , WPNTYLOC ( 3 ) , WPNTZLOC ( 3 ) , WAVEXLOC ( 3 ) , 

2  WAVEYLOC ( 3 ) , WAVEZLOC ( 3 ) 

CHARACTER  WPNTNAMES(3)*20 

CHARACTER* 4  US, CS,IvS,IvuS, Options. AS, UPCS 
CHARACTER  YS,NS,ECS,BELL,DISP"8,PAGE*2,CLR*2 
CHARACTER* 18  Dates , Times , Names ( 32 ) , Unites ( 32 ) 

CHARACTER* 40  Trials, Locations, Personnels, Comments^ 

CHARACTER* 3  MONTHS (12) 

CHARACTER* 13  DTGS 
CHARACTER*20  T1S,T2S 
CHARACTER *8  ARUN,8UNITS 
CHARACTER* 4  TITLE ( 20 ) ,VALS 
CHARACTER* 2  SEATYPES, STYPS (2 ) , SMPUTS 
CHARACTER* 18  STYPNS(2) 

DIMENSION  OMG ( 30 ) , RLANG ( 8 ) 

REAL  LPP,XO,KROLL,LCB 
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LOGICAL  VRT,LAT, ADORES 

DATA  MONTHS  / ' JAN 1 , *  FEB ' , *  MAR  * , ' APR  * , *  MAY  * , *  JUN  * , ' JUL ' ,  AUG*, 
2  'SEP1 , ‘OCT* , ’NOV* , 'DEC'/ 


C  CONSTANTS 


Sat  up  program  constant* 

YS«'Y'  I  "YES"  answer 

NS» ' N '  1  "NO"  answer 

Nparam*4  I  No.  of  statis.  par am.  (MEAN,  STDDEV,  MAX,  MIN) 

NMAX-10  I  Max.  no.  of  channels 

FTMETR«.3048  1  Feat  to  maters  conversion  factor 

VKMETR  -  1.689*FTMETR  1  FPS  to  MPS  convaraion  factor 

STYPS(1)»'LC*  t  Longcreatad  saas 

STYPS (2 )  • ' SC'  I  Shortcrasted  saas 

STYPNS(l)  •  ' LONGCRESTED  SEAS  ' 

STYPNS(2 )  ■  * SHORTCRESTED  SEAS  * 


Generata  sin  and  cosine  lookup  table  (0.1  dag  resolution) 

PI  -  3.1415927 
X2PI  -  2  *  PI 
XJTX  ■  3600 
RDX  •  3600  /  X2PI 
DRX  -  1  /  RDX 
DO  10  J-0,3600 
ARC  -  J  *  DRX 
SI(J)  -  SIN(ARG) 

CO( J)  «  COS ( ARC ) 

10  CONTINUE 


C  START 


*  set  underflow  to  zero 

•  CALL  UNDER0  (.TRUE.) 
CALL  UNDFL  (.TRUE.) 


•  Open  STH.INP  file 

FIS  ■  'STH.INP' 

OPEN  ( 5, FILE-FIS, STATUS-’ OLD' ) 

1000  FORMAT  (A) 

READ  (5,1000)  SMPDATAS 
READ  (5,1000)  STHDATAS 
READ  (5,1000)  5HIPTYPS 
READ  (5,1000)  SHIPS 
READ  (5,1000)  VARIANTS 
READ  (5,1000)  CYCLES 
READ  (5,1000)  8UNITS 
READ  (5,1000)  TRIALS 
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CALL  SLENTH  ( SMPDATAS , LSMPD ATA ) 
CALL  SLENTH  ( STHDATAS , LSTHOATA ) 
CALL  SLENTH  < SHIPS, LSHXP) 

CALL  SLENTH  (SUNITS,LSUNITS) 
CALL  UCASE  (SUNITS,LSUNITS) 


Read  point  locations  for  wavs  height  at  a  point 

READ  (5,1000)  AS 
REAR  (5, * (18X,I5) ' )  NWPOINT 
IP  (NWPOINT  .GT.  3)  NWPOINT  •  3 
READ  (5,1000)  AS 
READ  (5,1000)  AS 
READ  (5,1000)  AS 
IP  (NWPOINT  .GT.  0)  THEN 
DO  20  1-1, NWPOINT 

READ  (5, ' (X4,3P8.1,3X,A20) ' )  IWPNT , WPNTXLOC ( I ) ,WPNTYLOC(I) , 
2  WPNTZLOC ( I ) , WPNTNAMES ( I ) 

20  CONTINUE 
END  IF 

READ  (5,1000)  AS 


Open  fils  of  origin  motion  transfsr  functions  from  SMP 

PIS  ■  SMPDATAS (It LSMPDATA) // * \ * // 

2  SHIPS (lsLSHIP)//VARIANTS(l: 1)// 1 .ORG' 

OPEN  (11, FXLE"FIS , FOPM» ' UNFORMATTED ' , STATUS*  *  OLD ' ) 

Read  hsadsr  record 

READ  (11)  TITLE, NVX,NNMU, NOMECA,OMG, NRANG,RLANG,VRT,LAT, 

2  ADORES, LPP, BEAM, DRAFT, DISPLM,GM,DELOM, KG, XROLL,LCB,CRAV,RHO, 

2  VKDES , VKINC, DBLWL 

SMP UTS  »  'M'  l  SMP  displacensnt  units  are  in  meters 
IF  (CRAV  .GT.  15.)  SMPUTS  •  ’F’  I  SMP  displacement  units 

are  in  feet 

IF  ( SUN ITS ( 1 t 1 )  .NE.  'M')  VXMETR  -  VXMETR/FTMETR 
UNTCONV  »  l  1  displacement  units  conversion  factor 

IF  ( SMPUTS ( 1 > 1 )  .EQ.  ’M'  .AND.  SUNITS(ltl)  .EQ.  ’F') 

2  UNTCONV  -  l./FTMETR 

IF  ( SMPUTS (1:1)  .EQ.  'F'  .AND.  SUNXTS(lil)  .EQ.  'M‘ ) 

2  UNTCONV  -  FTMETR 

ORAV  -  ORAV  *  UNTCONV 
LPP  -  LPP  *  UNTCONV 

LCB  -  LCB  *  UNTCONV  I  Note  that  LCC  -  LCB  in  the  SMP  program 
DBLWL  •  DBLWL  *  UNTCONV 

WRITE  (TRIALS, ' (10A4) ' )  (TITLE (I ) , 1*1, 10) 

CLOSE  (11) 

IF  (NWPOINT  .OT.  0)  THEN 
DO  30  I -1, NWPOINT 

WAVEXLOC(X)  »  LCB  -  WPNTXLOC(X)  *  (LPP  /  20) 

WAVEYLOC ( I }  -  WPNTYLOC ( I ) 

WAVE Z LOG ( 1 )  -  0 


30  CONTINUE 
END  IP 


Start  loop  ovar  runs 


READ  (5,*)  NRUNS 


Start  loop  ovar  runs 
DO  S00  IR-1, NRUNS 

READ  (S,*)  RUNNUMBER , SAMPLERAT8 , TSTART , TEND , SPEED , HEAD , S IGWH , 
2  TMODAL, STATIS , SEATYPES 

DT-1 . /Samplarata 
TLRUN-TEND -TSTART 
ICOUNT<=Samplerate*TLRUN  +  1 
COUNT- I COUNT 

VK-SPEED 


IC-1 

IP  ( SEATYPES ( 1 i 1 ) . EQ. ’ L '  .OR.  SBATYPES(li 1) .EQ. ' 1 ’ )  IC-1 
IP  ( SEATYPES ( 1 > 1 ) . EQ. * S '  .OR.  SEATYPES ( 1 t 1 ) .EQ. * S ’ )  IC-2 


* 


BIC-IC 
ESPBED-SPEED 
E HEAD-HEAD 


ESIGWH-SICWH 

ETMODAL-TMODAL 

ESTART-T8TART 

EEND-TEND 

NWW-150 

IP  (IC.EQ.l)  NMU-1 
IP  (IC.EQ.2)  NMU-11 


I  SEA  TYPE  -  1-Longcrested,  2-Shortcraatad 
I  Ship  spaad  in  knots 
1  Pradominant  heading  in  dagraaa 
SMP  output  haading  rafaranca 
(  0  dag-haad,  90  dag-stbd  baam, 

180  dag-following  ) 
t  Significant  wavs  haight 
I  Modal  wava  pariod 
l  Start  of  run  in  aaconda 
1  End  of  run  in  aaconda 
1  No.  of  frequencies  for  tine  histories 
1  No.  of  component  headings  (longer,  seas) 
l  No.  of  component  haadinga  (shorter,  seas) 


Define  the  run 

IRUN-RUNNUMBER 

WRITE  (ARUN, • (16) * )  I RUN 

L-LEN(ARUN) 

M— 0 

DO  40  I-1,L 

IP  (ARUN( I i I ) .EQ.CHAR( 32 ) )  GO  TO  40 
M-I 

GO  TO  50 
40  CONTINUE 

50  DATAS-'SR' //ARUN(MtL) 

CALL  SLENTH  (DATAS, LDATAS ) 

Waveheight-SIOWH 
Heading- HE AD 
I SPEED- VK+. 001 
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IHDNG-HEAD+.001 

ITO-TMODAL+.OOl 

ISTART-TSTART 

IEND-TEND 

WRITE  ( Comment aS, 3000)  STYPS ( IC) , ISPEED, IHDNG, SIGWH, ITO 
3000  FORMAT(A2,*  V«',I3,*  HD-',™,1  S  WH-  * , F5 . 1 , '  T0»',I3) 

N  ■  7  +  NWPOINT  1  Ho.  of  channel*  - 

Waveht  at  LCC  + 

6DOF  mot lone  ♦ 

Waveht  at  point* 


Names (1) 

m 

•WAVEHT 

UnitaS(l) 

m 

SUNITS 

Names (2) 

m 

•SURGE 

Unites (2) 

m 

SUNITS 

Names (3) 

m 

•SWAY 

UnitsS(3) 

m 

SUNITS 

Names (4) 

m 

•HEAVE 

UnitsS(4) 

m 

SUNITS 

Names ( S ) 

m 

‘ROLL 

UnitsS(5) 

m 

•DEG 

Names (6) 

m 

•PITCH 

UnitsS (6) 

m 

•DEC 

Names ( 7 ) 

m 

•YAW 

UniteS( 7) 

m 

•DEO 

Names (8) 

m 

• WVHTP1 • 

Unites (8) 

m 

SUNITS 

Nam*S(9) 

m 

• WVHTP2 ' 

UniteS(9) 

m 

SUNITS 

Names (10) 

m 

' WVHTP3 

Unites (10) 

m 

SUNITS 

*  Get  DATE  and  TIME 

CALL  DATE (Dates) 

CALL  TIME (Times) 

TIS-TimeS 

READ  (Dates, "(12)")  MONTH 

DTGS  •  Dat*S(4iS)//TlmeS(li2)//Tiffl*S(4i 5)// 'L  • //MONTHS (MONTH ) // 
2  Dates ( 7 i 8 ) 

AS-’CLS ' 

CALL  SYSTEM  (AS) 

PI8  •  8TKDATAS ( 1 « LSTHDATA ) / / ' \ * / / DATAS ( 1 j  LDATAS ) / / * . TEX  * 

OPEN  ( 10, PILE-PIS, FORM- ' FORMATTED ' , STATUS- ' UNKNOWN ' ) 

WRITE  (  *,2000)  Dates, Times 
WRITE  (10,2000)  Dates, Times 
2000  PORMAT  (24X, 'SIMULATION  TIME  HISTORY  PROGRAM'/// 

2  32X, 'DATE  t  ' , A8/32X, 'TIME  «  ’,A8///) 

WRITE  (  *,2002)  SHIPTYPS 
WRITE  (10,2002)  SHIPTYPS 
2002  PORMAT  (17X,  'SHIP  TYPE  t  \A8) 

WRITE  (  *,2004)  TRIALS 
WRITS  (10,2004)  TRIALS 
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2004  FORMAT  (/17X, ’TITLE  «  *,A40) 


WRITS  (  *,2006)  SHIPS 
WRITS  (10,2006)  SHIPS 
2006  FORMAT  (/17X, ’SHIP  t  '  ,A5) 

WRITS  (  *,2008)  VARIANTS 
WRITE  (10,2008)  VARIANTS 
2008  FORMAT  (17X, 'HULL  VARIANT  :  *,A1) 

WRITE  (  *,2010)  CYCLES 
WRITS  (10,2010)  CYCLES 
2010  FORMAT  (17X, 'SMP  CYCLE  NO  i  *,A2) 

WRITE  (  *,2014)  SUNITS 
WRITE  (10,2014)  SUNITS 

2014  FORMAT  (/17X, 'UNITS  :  *,A6) 

WRITE  (  *,2015)  GRAV 
WRITE  (10,2015)  GRAV 

2015  FORMAT  (17X, ’GRAVITY  :  ',F9.4) 

WRITE  (  *,2016)  LPP 
WRITE  (10,2016)  LPP 

2016  FORMAT  (17X, 'SHIP  LENGTH  t  ',F8.2) 

WRITE  (  *,2018)  LCB 
WRITE  (10,2018)  LCB 

2018  FORMAT  (17X, 'LONGITUDINAL  CENTER  OF  GRAVITY  (REF  FROM  FP)  t  ', 
2  F8.2) 

WRITE  (  *,2020)  DBLWL 
WRITE  (10,2020)  DBLWL 

2020  FORMAT  (17X, 'DISTANCE  FROM  BASELINE  TO  WATERLINE  i  ',F8.2) 

WRITE  (  *,2022)  RUNNUMBER 
WRITE  (10,2022)  RUNNUMBER 
2022  FORMAT  (/17X,'RUN  NUMBER  :  ',F5.0) 

WRITE  (  *,2025)  CoonwnttS 
WRITE  (10,202S)  ConnantiS 

202 5  FORMAT  (17X, 'COMMENT  »  ' ,A40) 

WRITE  (  *,2026)  Sanplarat* 

WRITE  (10,2026)  Sampl«rat« 

2026  FORMAT  (/17X, 'SAMPLE  RATE  i',F8.3,'  SAMPLES/SEC ' ) 

WRITE  (  *,2027)  T8TART 
WRITE  (10,2027)  TSTART 

2027  FORMAT  (17X, 'START  TIME  i  ',F8.3,'  SEC') 

WRITE  (  *,2028)  TEND 
WRITE  (10,2028)  TEND 

2028  FORMAT  (17X, 'STOP  TIME  t  ' ,F8.3, '  SEC') 

WRITE  (  *,2029)  TLRUN 
WRITE  (10,2029)  TLRUN 

2029  FORMAT  (17X, 'RUN  TIME  t  ',F8.3,'  SEC') 

WRITE  (  *,2030)  I COUNT 
WRITS  (10,2030)  I COUNT 

2030  FORMAT  (17X, 'TOTAL  NO.  OF  SAMPLES  <  ’,18) 
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WRITE  (  *,2031)  SPEED 
WRITE  (10,2031)  SPEED 

2031  FORMAT  (/17X, ‘SHIP  SPEED  :  ',FS.2,‘  KNOTS') 

WRITE  (  *,2040)  HEAT 
WRITE  (10,2040)  HEAD 

2040  FORMAT  (17X, 'PREDOMINANT  HEADING  :  *,F5.0,'  DEG'/ 

2  / 20X, '  SMP  OUTPUT  HEADING  REF.  t  ' 

2  / 20X,  ' - ' 

2  / 20X, '  0  dag-head  seas, 

2  /20X, '  90  dags*tbd  beam  aeas, 

2  /20X,  '  180  dag-following  mi  '//) 

WRITE  (  *,2045)  STYPNS(IC) 

WRITE  (10,2045)  STYPNS(IC) 

2045  FORMAT  (17X, 'SEA  TYPE  i  ’,A18) 

WRITE  (  *,2050)  SIGWH,SUNITS 
WRITE  (10,2050)  SICWH, SUNITS 
2050  FORMAT  ( 17X, ' SIGNIF.  WAVE  HEIGHT  t  ',F6.2,'  *,A6) 

WRITE  (  *,2060)  TMODAL 
WRITE  (10,2060)  TMODAL 

2060  FORMAT  ( 17X, 'MODAL  WAVE  PERIOD  :  ',F6.2,'  SEC'/) 

WRITE  (  *,2070)  STATIS 
WRITE  (10,2070)  STATIS 

2070  FORMAT  (17X, 'STATISTIC  USED  FOR  ROLL  ITERATION  i  ',F6.2, 

2  '  *  RMS'//) 

WRITE  (  *,2075)  N 
WRITE  (10,2075)  N 

2075  FORMAT  ( 17X, 'NUMBER  OF  CHANNELS  >  ',13) 

WRITE  (  *,2076)  NWPOINT 
WRITE  (10,2076)  NWPOINT 

2076  FORMAT  (//17X, 'NUMBER  OF  WAVE  POINTS!  ’,13//) 

WRITE  (  *,2077) 

WRITE  (10,2077) 

2077  FORMAT  (26X,'Li*t  of  Wava  Point*' //10X, 

2  '  NO  XLOC  YLOC  ZLOC  NAME ' /12X, 51 ( ' - ' ) ) 

IF  (NWPOINT  .OT.  0)  THEN 
DO  60  X»l, NWPOINT 

WRITE  (  *, ' (10X,I4,3F7.1,3X,A20) ' )  I , WPNTXLOC ( I ) , 

2  WPNTYLOC ( I ) , WPNTZLOC ( I ) , WPNTNAMES ( I ) 

WRITE  (10, ' (10X,I4,3F7.1,3X,A20) ' )  I,WPNTXLOC(I), 

2  WPNTYLOC ( I ),WPNTZLOC( I), WPNTNAMES (I) 

60  CONTINUE 
END  IF 

CALL  TRFN  i  Oat  tranafar  function* 

CALL  SCTH  1  Compute  time  historia* 

WRITE  (  *,2080) 

WRITE  (10,2080) 

2080  FORMAT  (///37X, ‘STATISTICAL  RESULTS '//41X, 'TIME  DOMAIN', 14X, 

2  'FREQ.  DOMAIN'/'  CHAN  NAME  UNIT' , 8X, ' MEAN ' ,4X, ' STDDEV , 6X, 
2  'MAX' ,7X, 'MIN' ,7X, 'STDDEV'/) 

DO  70  M-1,N 
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WRITE (  *<2090)  M,N«m*S(M),Unit»S(M), (Raaulta(M, J) , J-1,4) , 
2  SCRMS(M) 

WRITE (10 ,2090)  M,NamaS(M) ,UnitsS(M) , (Raaulta(M, J) , J-1,4) , 
2  SCRMS(M) 

2090  FORMAT  (I4,3X,A8,2X,A6,4F10.3,F12.3) 

70  CONTINUE 

CALL  TIME  (T2S) 

CALL  ELTIME  (T1S,T2S) 

CLOSE  (10) 


*  Opan  STHLOG.TEX  fils 

FIS  -  STHDATA5 (It  LSTHDATA ) / / * \ * / / * STHLOC . TEX ' 

OPEN  ( 3 , FILE-FIS , STATUS- ' NEW ' , ERR-80 ) 

WRITE  (3,"(/27X, *STH  LOO  RUN  SUMMARY*)") 

WRITE  (3,**(/19X, 'TRIAL!  *,A)")  TRIALS 

WRITE  (3,  " (/19X, * STH  DATA  PATH  t  *,A)")  STHDATAS( 1 j LSTHDATA) 
WRITE  (3, " ( //19X, ’TYPE  CODE  :  BI  -  BINARY*)") 

WRITE  (3, "(/'  RUN  TYPE  TIME  DATE-TIME-GROUP 
2  *  COMMENTS  * ) " ) 

GO  TO  100 

80  OPEN  ( 3, FILE-FIS, STATUS-' OLD ' ,ERR-99) 

90  READ  (3, 1000, ERR- 100)  AS 
GO  TO  90 

100  IF  (MOD(RUNNUMBER,  5)  .EQ.  1)  WRITE  (3,*)  " 

RTIME  -  TLRUN  /  60  !  run  tin*  In  minutaa 

WRITE  (3,4000)  RUNNUMBER,  'BI*,  RTIME,  ’  MIN',  DTGS,  CornmantsS 
4000  FORMAT  (I5,2X,A2,F6.1,A4,3X,A13,4X,A40) 

CLOSE (3) 


*  End  loop  ovar  runs 

500  CONTINUE 
CLOSE (5) 

C  QUIT 

STOP 

99  writa  (*,*)  *  arror’ 

END 

C  SUBROUTINES 
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C  DECK  ALCRNG  -  Computes  aru  under  *  spectrum 

*  3/31/88  81 10  am 

SUBROUTINE  ALGRNG  (N,W,S, AREA) 

*  This  subroutine  computes  the  ares  under  the  curve  for  a  particular 

*  spectrum.  An  odd  number  of  points  (frequencies)  should  be  used. 

DIMENSION  W(N),S(N) 

KN-N-2 

AREA-0. 

TEMP  -  0. 

DO  20  M-1,MN,2 
A»W(M+2)-W(M) 

B«W(M+2)-W(M+l) 

C-W(M+1)-W(M) 

PAREA  •  A*A/6.*(S(M)*(3.*C-A)/(A*C)+S(M+1)*A/(B*C)+ 

2  S(M+2)*(2.*A-3.*C)/(A*B) ) 

TEMP  -  PAREA 

IF  (PAREA  .LT.  0.)  TEMP  -  0. 

AREA  -  AREA  *  TEMP 
20  CONTINUE 

IF  ( MOD ( N ,  2 )  .EQ.  1)  GO  TO  30 
DELW  ■  W(N)  -  W(N-l) 

DELS  -  S (N)  -  S(N-l) 

AREA  -  AREA  ♦  S(N-1)*DELW  *  . 5*DELS*DELW 
30  CONTINUE 

AREA  -  ABS( AREA) 

RETURN 

END 


C  DECK  ATAN2D  -  Arctangent  function  in  degrees  for  any  quadrant 

•  2/18/89  Is  15  pm 

FUNCTION  AT AN 2D  <B,A,RADDEC) 

*  Arctangent  function  to  compute  angles  (in  degrees)  in  any  quadrant. 

•  The  b  argument  is  the  imaginary  vector.  The  A  argument  is  the  real 

*  vector . 

DATA  EPS  /l.E-6/ 

IF  (B  .EQ.  0.)  AT AN 2D  -  0. 

IF  (B  .OT.  0.)  AT AN 2D  -  90. 

IF  (B  .LT.  0.)  ATAN2D  —90. 

IF  (ABS(A)  .OT.  EP8)  AT AN 2D  -  ATAN2 (B, A)  *  RADDEO 

RETURN 

END 


C  DECK  BRWVSP  -  Computes  Bretschneider  Wave  Spectrum 

•  4/2/88  12 i 30  pm 

SUBROUTINE  BRWVSP  (NOK,SIOWH,TO,W,S) 

•  this  routine  calculates  a  BRETSCHNEIDER  2-parameter  wave  spectrum 

•  (significant  wave  height,  modal  wave  period) 
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DIMENSION  W(NOK) , S(NOK) 

EXTERNAL  EXP 

DATA  A,B  /487. 0626, 1948.2444/ 

T04  •  TO* *4 

for  Piaraon-Moakowitz  wav*  spectrum 
T04  -  58.0936*SIQWH**2 

CONI  •  A*SIGWH**2/T04 

COM2  *  B/T04 

DO  10  1-1, NOK 

W4  »  W(I) **4 

WS  »  W(I )  *M4 

ARC  -  CON2/W4 

IF  (ARC.GT.50.)  S(I)-0. 

IP  ( ARG.GT. SO. )  GO  TO  10 
8(1)  -  CONI /W5*EXP( -ARC) 

10  CONTINUE 

RETURN 

END 


C  DECK  CPPZT  -  Cubic  non-paranwtric  splins  fit  for  complex  data 
•  3/31/88  8 i 15  am 

SUBROUTINE  CPFIT  (X,  Z,  CELEMS,  NPT6) 

CPPIT  CREATED  PROM  SPFIV  E  N  HUBBLE  JUNE  1977 

TITS  CUBIC  NON-PARAMETRIC  SPLINE  SEGMENTS 
TO  SET  OF  COMPLEX  DATA  POINTS 

XNPUT8 

X  -  ARRAY  OP  REAL  INDEPENDENT  VARIABLES 

Z  -  ARRAY  OF  COMPLEX  DEPENDENT  VARIABLES 

NPT8  -  NUMBER  OF  (X,Z)  DATA  POINTS 
RETURN 

CELEMS  -  ARRAY  OF  (NPTS-1)  SEGMENTS  IN  FOLLOWING  FORM 
(  (Z(I),  D(I),  Z<X+1),  D ( I+l )  )  ,  WHERE 

D  -  ARRAY  OF  SECOND  DERIVATIVES  AT  DATA  POINTS 

ARRAYS  A,B,C  ARE  MAINLY  SUB  DXAG.,  DIAGONAL,  AND  SUPER  DIAO. 

D  ARRAY  IS  THE  RXOHT  HAND  SIDE  OF  MATRIX  EQUATION 

SECOND  DERIVATIVES  AT  NODES  ARE  PLACED  IN  D  ARRAY  AFTER  SOLUTION 

SOLUTION  TECHNIQUE  IS  OAUSSIAN  ELIMINATION 

BOUNDARY  CONDITIONS  SET  BY  EXTRAPOLATION  OF  SECOND  DERIVATIVES 

COMMON/ IO /I CARD, XPRIN,POTFIL,COFFXL,RAOFIL,RMSFIL,OROFlL, SPCFIL, 

2  XSCARD, BLKFIL, SCRFIL, SPLFIL, LCOFIL, LRAFIL, SEVFIL 
INTEGER  ICARD, IPRZN,POTFIL,COFFIL,RAOFIL,RMSFIL,ORGFIL, SPCFIL, 

2  XSCARD, BLKFIL, SCRFIL, SPLFIL, LCOFIL, LRAFIL, SEVFIL 
COMPLEX  Z,  ZDD,  STORE,  D,  CELEMS 
DIMENSION  X(NPT8) ,Z(NPT8) , CELEMS ( 4, NPTS) 

DIMENSION  A(100) ,  B(100),  C(100),  D(100) 

N  •  NPTS 
NL1  ■  N  -  1 
NL2  -  N  -  2 
DO  50  1*2, N 
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IF  (X(I)  .OT.  X(I-l))  OO  TO  SO 
WRITE  (  *,888)  X(I-1),X(I) 

WRIT*  (10,888)  X(I-1),X(I) 

GO  TO  88888 
SO  CONTINUE 

IP  (N  .LI.  100)  GO  TO  100 
WRIT!  (  *,999) 

WRITE  (10,999) 

N  -  100 

100  CONTINUE 

IF  (N  .OT.  2)  GO  TO  12S 

D(l)  -  (0.0,  0.0) 

0(2)  -  (0.0,  0.0) 

GO  TO  37S 
12S  CONTINUE 

IF  (N  .GT.  3}  GO  TO  ISO 

ZDD  -  2.*(<X(3)-X(2))*Z(1)+(X(2)-X(1))*Z(3)-(X(3)-X(1))*Z(2)) 
/((X(3)-X(2))*(X(2)-X(1))*(X(3)-X(1))) 

0(1)  •  ZDD 
0(2)  -  ZDD 
D(3)  -  ZDD 
CO  TO  375 
150  CONTINUE 

DO  200  X-l.N 
A(I)  -  0.0 
B(I)  -  0.0 
C(I)  -  0.0 
D(I)  -  (0.0,  0.0) 

200  CONTINUE 

*  8ET  UP  MATRICES (A  TRIDIAGONAL  STRUCTURE) 

A(l)  -  (X(3)-X(2))/(X(3)-X(1)) 

C( 1 )  -  2.0 
8(1)  ■  1.0  •  A( 1 ) 

D(l)  -  6.0*((Z(3)-Z(2))/(X(3)-X(2))-(Z(2)-Z(1))/ 

1  ( X ( 2 ) -X ( 1 ) ) )/ ( X ( 3 ) -X ( 1 ) ) 

H  •  X(3)  -  X(2) 

DO  2S0  1-3, NL1 

HP  -  X(I+1)  -  X(I) 

C(I)  -  HP  /  (H+HP) 

8(1)  -  2.0 

A(I)  -  1.0  -  C(I) 

D(I)  -  6.0*((Z(I+1)-Z(I))/HP-(Z(I)-Z(I-1))/H)/(HP+H) 

H  -  HP 

2 SO  CONTINUE 

*  SET  BOUNDARY  CONDITIONS 


C  ( 2 ) 

m 

(X(2)-X(1))/(X(3)-X(2)) 

A<2) 

m 

1.0 

B(2) 

m 

-1.0-C(2) 

C(2) 

m 

-A(2)*A(1)/B(1)  ♦  C(2) 

0(2) 

m 

(0.0,  0.0) 

C(K) 

m 

(X(N)-X(N-l) )/ (X(N-l)-X(N-2 ) ) 

A(N) 

m 

-1.0  -  C(N) 

B(N) 

m 

1.0 

0(N) 

m 

(0.0,  0.0) 

*  SOLVE  EQUATIONS 

II  -  1 

DO  300  I-1,NL2 

11  -  I  ♦  1 

12  -  I  +  2 

AUCH  -  ABS  (B ( I ) ) 

IF  (AUGH  .LT.  1.01-06)  GO  TO  27S 
CONST  -  A(I1)  /  B ( I ) 
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B { I 1 )  a  B( XI )  -  CONST*C( X ) 

D ( XI )  -  D{ XI }  -  CONST*D ( X ) 

IF  (X  .NS.  NL2 )  OO  TO  300 

A(N)  ■  A(N)  -  C(N)*C(I)  /  B(X) 
D(N)  -  D(N)  -  C(N)*D(I)  /  B(X) 
00  TO  300 
275  CONTINUE 


II  -  I  +  1 
D ( X )  -  0(1)  /  C{ I ) 

D(X1)  a  0(11)  -  B(X1) *D(X) 
B(X1)  -  A(I1) 

A( XI)  a  0.0 

0(12)  •  0(12)  -  A(X2)*D(X) 
A(X2)  -  0.0 

IF  (X  .NS.  NL2 )  GO  TO  300 
A(N)  -  C(N) 

300  CONTINUE 


DET  •  B(NL1)*B(N)  -  C(NL1)*A(N) 

STORE  •  D(N) 

D(N)  -  (B (NL1 ) *D(N )  -  D(NL1)*A(N))  /  DET 
O(NLl)  -  (D(NL1) *B(N)  -  C(NLl)*STORE)  /  DET 
IP  -  0 

OO  350  I«2,NL2 
JI  -  N  -  I 

IF  (JI  .EQ.  IP)  CO  TO  350 
IF  (JI  .EQ.  XX)  GO  TO  325 

D(JI)  -  (D(JI)-C(JI)*D(JH-1))/B(JI) 

GO  TO  350 
325  CONTINUE 

XP  -  JI-1 
STORE  -  D( JI ) 

O(JX)  «  D(XP) 

0(IP)  ■  (STORE  -  C(IP)«D(JI+1))/B(XP) 

350  CONTINUE 

0(1)  -  (0(1)  -  A(1)*D(3)  -  C(l) *0(2) )  /  B ( 1 ) 

*  SET  UP  SPLINE  SEGMENTS 

375  CONTINUE 

OO  400  I-1,NL1 
XI  -  I  ♦  1 
CELEMS (1,1)  a  Z(I) 

CELEMS (2,1)  -  0(1) 

CELEKS(3,I)  -  2(11) 

CELEMS (4, I )  a  0(X1) 

400  CONTINUE 
99999  CONTINUE 
RETURN 

88888  CONTINUE 
STOP 

888  FORMAT  ('0  CPFIT—  X  VALUES  NOT  ASCENDING' ,  2E16.8) 

999  FORMAT  (*0  CPFIT—  NPTS  EXCEEDS  100.  ONLY  99  SEGMENTS  RETURNED*) 

END 


C  DECK  CPLVAL  -  Evaluates  a  conplax  non-paranatric  aplina 

•  3/31/88  8t 15  an 

SUBROUTINE  CPLVAL  (X,  NPTS,  CELEMS,  XO,  ZO,  SO,  XELM) 

•  CPLVAL  CREATED  FROM  SPLVAL 

*  EVALUATES  A  COMPLEX  NON- PARAMETRIC  SPLINE 

*  INPUTS 
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•  X  -  ARRAY  OP  REAL  INDEPENDENT  VARIABLES 

•  NPTS  •  NUMBER  OP  VALUES  IN  X-ARRAY 

*  CELEMS-  COMPLEX  SPLINE  SEGMENTS  GENERATED  BY  CPPIT 

•  XO  X-VALUE  AT  WHICH  SPLINE  IS  TO  BE  EVALUATED 

•  RETURNS 

*  ZO  ■  P(X0)  -  Z -VALUE  EVALUATED  AT  XO 

*  SO  »  SECOND  DERIVATIVE  EVALUATED  AT  XO 

*  I ELM  -  INDEX  OP  SPLINE  SEGMENT  CONTAINING  XO 

COMPLEX  CELEMS,  ZO,  Zl,  Z2,  SO,  SI,  62 
DIMENSION  X( NPTS), CELSMS (4, NPTS) 

COMMON/ 10/ ICARD,  IPRIN, POTPIL, COFPIL,  RAOPIL,  RMSPIL,ORGPIL, SPCFIL, 
2  I8CARD, BLKFIL, SCRPIL, SPLPIL, LCOPIL, LRAPIL, SEVPIL 
INTEOER  ICARD, IPRIN, POTFIL,  COFPIL,  RAOPIL, RMSPIL,ORGFIL, SPCFIL, 

2  ISCARD, BLKFIL, SCRPIL, SPLFIL, LCOPIL, LRAPIL, SEVPIL 
N  ■  NPTS 

IP  (XO.OE.X(l)  .AND.  XO.LE.X(N))  CO  TO  100 
WRITE  (  *,999)  XO 
WRITE  (10,999)  XO 
GO  TO  99999 
100  CONTINUE 

DO  200  1-2, N 

IP  (XO  .GT.  X(I))  GO  TO  200 
GO  TO  300 
200  CONTINUE 
300  CONTINUE 
I  -  I  -  1 

XX  -  X(I+1)  -  X(I) 

XI  -  XO  -  X(I) 

X2  -  X(H-l)  -  XO 
XX6  -  XX  *  XX  /  6.0 
FI  -  CELEMS (1,1) 

Z2  -  CELEMS (3,1) 

81  -  CELEMS (2,1) 

S2  ■  CELEMS (4,1) 

ZO  -  (81  •  X2**3  ♦  S2  *  Xl**3)  /  (6.0  *  XX)  ♦ 

.  (  (Zl  -  81*XX6)  *  X2  ♦  (Z2  -  S2*XX6)  *  XI  )  /  XX 

80  •  (81  •  X2  ♦  82  *  XI)  /  XX 

I ELM  -  I 
RETURN 

99999  CONTINUE 
STOP 

999  FORMAT  ('0  EXTRAPOLATION  NOT  ALLOWED.  XO  E16.8) 

END 


C  DECK  ELTIME  -  Prints  slspssd  tins 
•  3/31/86  8>30  am 

SUBROUTINE  ELTIME  (TS,ES> 

CHARACTER® 20  TS,E S 

READ  (T8, ' (12, IX, 12, IX, PS. 2) ' )  IH,IM,BSEC 
READ  (ES, ' (12, IX, 12, IX, P5. 2) * )  JH,JM,ESEC 

IP  (S8EC  .OE.  B8EC)  GO  TO  10 
ESEC  -  ESEC  ♦  60. 

JM  -  JM  -  3 

10  IP  (JM  .OE.  IM)  OO  TO  20 
JM  -  JM  ♦  60. 

JH  -  JH  -  1 


S3 


20 


IF  (JH.LT.XH)  JH-JH+24 


KH-JH-IH 

KM-JH-IM 

DBLSBOESEC-BSEC 

KS-DELSEC+.5 

WRITE  (  *,1000)  KH,KM,KS 
WRITE  (10,1000)  KH,KM,KS 
1000  FORMAT  ( //29X, "ELAPSED  TIME-/16X, 39 ( ) / 

2  17X, 13, "  Hours", 2X, 13,  "  Minutss" ,2X, 13, "  Seconds") 

RETURN 

END 


C  DECK  EXP  -  Avoid  underflow  with  F77L  EXP  routine 

*  4/2/88  2 i 40  pm 

FUNCTION  EXP ( X ) 

*  avoid  underflow  with  F77L  EXP  routine 

IF(X.LT. (-50) )THEN 
EXP-0. 

ELSE 

EXP-DEXP(X) 

END  IF 

RETURN 

END 


c  DECK  intrpl  -  Interpolation  routine 
*  3/31/88  8<  30  an 

SUBROUTINE  XNTRPL(N,XN,YN,M,XM,YM) 

DIMENSION  XN(N) , YN(N) ,XM(M) , YM(M) 

K-l 

SLOPE- (YN(K+1)-YN(K) ) / (XN (K+l ) -XN(K) ) 
DO  40  I-1,M 

10  IF  (XM(X) .GE.XN(K+1) )  00  TO  20 
YM(X)-YN(K)+SLOPS*(XM(X)-XN(K) ) 

OO  TO  40 
20  K-K+l 

IF  (K.EQ.N)  OO  TO  30 

SLOPE- (YN(K+1)-YN(K) ) /(XN(K+1)-XN(K) ) 

GO  TO  10 

30  YM(X)-YN(K) 

40  CONTINUE 

RETURN 

END 


C  DECK  ORGTFN  -  Reads  SMP  origin  file  to  get  6DOF  transfer  functions 
*  2/1S/89  9 i 10  an 

SUBROUTINE  ORGTFN  ( S PEED , NMU , CHDNO , RLANS , RADDEO ) 

COMMON  /BK2/  UNTCONV, VKMETR 
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COMMON  /BK3/  MOTV , MOTL , H  JV , H  JL , H? , ORCTP , CTEMP 
COMPLEX  MOTV (3, 30) ,MOTL( 3, 30, 8 ) , HJV( 3 ,30) , HJL(3 , 30) , H7 ( 30 ) 
COMPLEX  ORCTP (30,11,6)/ CTEMP 
DIMENSION  CHDNO(Il) , OMEGA (30) ,RLANG(8) 

CHARACTER* 4  TITLE(20) 

REAL  LPP , KG , KROLL , LCB 
LOGICAL  VRT, LAT, ADORES 
DATA  EPS  /O.S/ 


Read  header  record  from  SMP  origin  file 
REMIND  11 

READ  (11)  TITLE, NVK,NNMU,NOMBCA, OMEGA, NRANG , RLANG , VRT , LAT , 

2  ADORES, LPP, BEAM, DRAFT, DISPLM,GM, DELGM, KG, KROLL, LCB, GRAV,RHO, 
2  VKDBS,VKINC,DBLWL 

GRAY  •  GRAV  •  UNTCONV 
LPP  »  LPP  *  UNTCONV 
LCB  -  LCB  •  UNTCONV 
DBLWL  ■  DBLWL  •  UNTCONV 

ISPEED-0 
I HEAD *0 


DO  200  IV»1,NVK  1  Loop  over  ship  speed 

DO  190  IH-1,NNMU  1  Loop  over  13  SMP  headings 

READ  (11)  SHPSPD,HEADNG, OMEGAS 
IP  (VRT)  READ  (11)  MOTV 
IT  (LAT)  READ  (11)  MOTL 
IP  (ADORES)  READ  (11)  HJV,HJL,H7 


Skip  if  not  desired  ship  speed 

IP  (SHPSPD  .GT.  SPEED)  00  TO  «l0 

IP  ( AB8 ( SHPSPD-SPEED )  .GT.  EPS)  GO  TO  190 

ISPEED-1 


*  Loop  over  plane 


IP  ■  1  -  STBD  plane  headings 
IP  •  2  -  PORT  plane  headings 


DO  180  IP>1,2  I  Loop  ever  plane 

IPLANE-IP 


Determine  if  this  heading  is  one  of  the  component  headings 


i  Loop  over  component  headings 


KH-0 

DO  130  LH»1,NMU 
ARO-CHDNG(LH) 


85 


GO  TO  ( 110,120) , IP 


i  Select  plan*  (STBD  or  PORT) 


STBD  plana  headings 

110  IP  (ARG.GT. 180. )  GO  TO  130 

IP  (ABS(ARG-HEADNO) .GT.EPS)  GO  TO  130 

KH-LH 

GO  TO  140 


PORT  plana  headings 

120  IF  (ARO.LE.180. )  GO  TO  130 
ARC-ABS ( ARG-360 . ) 

IP  (ABS(ARG-HEADNO) .GT.EPS)  GO  TO  130 

KH-LH 

GO  TO  140 


130  CONTINUE  t  End  loop  over  component  headings 

IF  (KH.EQ.0)  GO  TO  180  i  Skip  if  not  a  component  heading 


*  This  is  one  of  the  component  headings 

140  I HEAD-1 

ARG-CHDNG(KH) 

*  Store  6  DOF  origin  motion  transfer  functions 


Vertical  mode  motions  t  Surge,  Heave  and  Pitch 

DO  ISO  J-l,  3  I  Loop  over  motions 

JJ  -  (J-l) *2  +  1 

DO  150  IW-1,nomeoa  i  Loop  over  30  wave  frequencies 

CTEHP-MOTV ( J , IN) 

IP  (J  .EQ.  3)  CTEMP  -  CTEMP  •  RADDEG  /  UNTCONV 
OROTF ( I W , KH , J J ) -CTEMP 

ISO  CONTINUE  i  End  loop  ovsr  motions  and  frequencies 


Lateral  mode  motions  <  Sway,  Roll  and  Yaw 

DO  170  J-1,3  1  Loop  over  motions 

JJ  -  (J-l) *2  ♦  2 

DO  170  IW-1,NOMEOA  1  Loop  over  30  wave  frequencies 

CTEMP— { 0 . , 0 . )  1  Head  or  following  seas 

IP  (IH.GT.l  .AND.  IH.LT.13) 

2  CALL  TFNFIT  < RLAN0 , HRAN0 , RLANS , MOTL , J, IN, CTEMP) 

IP  (J  .GT.  1)  CTEMP  -  CTEMP  *  RADDEG  /  UNTCONV 

Change  polarity  of  lateral  motions  for  port  headings 
IP  (I PLANE  .EQ.  2)  CTEMP  -  -  CTEMP 


8S 


o  « 


170 


OROTP { 1W , KH , J 3 ) -CTEMP 
CONTINUE 


180 

190 


CONTINUE 

IF  (NMU  .EQ.  1  .AND. 
CONTINUE 


i  End  loops  over  motion  and  frequency 
I  End  loop  ever  plan* 


I HEAD  .EQ.  1)  GO  TO  220 


t  End  loop  over  13  SMP  heading* 


*  Skip  if  this  is  ths  correct  spssd  and  heading 
IF  (ISPEED.EQ. 1  .and.  IHEAD.EQ. 1)  GO  TO  220 

200  CONTINUE  I  End  loop  over  ship  spssd 


210  WRITE  (  *,1000) 

WRITE  (10,1000) 

1000  FORMAT  ('  Did  not  find  spssd  or  heading.  Program  stopped.') 
STOP 


220  CONTINUE 

RETURN 

END 


DECK  RLITER  -  Reads  ROLL  transfer  functions  for  roll  iteration 
2/15/89  9 i 10  am 

SUBROUTINE  RLITER  (SPEED, NMU, B2,CHDNO,STATIS,SWAVB,RADD*0,RLANS) 
COMMON  /BK2/  UNTCONV , VKMETR 

COMMON  /BK3/  MOTV , MOTL , H JV , H JL , H7 , VERTFN , LATTFN , CTEMP 
COMPLEX  MOTV (3,30), MOTL (3,30,8), HJV (3,30), HJL ( 3 , 30 ) , H7 ( 30 ) 
COMPLEX  VERTFN (3, 30, 11) , LATTFN (3, 30, 11) , CTEMP 
DIMENSION  RLCALC(8) , B2(ll) ,ROLVAR(8, 11 ) ,CHDNC(11) ,RLANG(8) 
DIMENSION  OMEGA (30) , OMEGAS (30) ,SWAVE(30) ,R(30) 

CHARACTER* 4  TITLE (20) 

REAL  LPP,KG,KR0LL,LCB 
LOGICAL  VRT , LAT , ADDRES 
DATA  EP8  /0. 5/ 


Read  header  record 

REWIND  11 

READ  (11)  TITLE ,  NVK ,  NNMU ,  NOKZGA ,  OMEGA ,  NRAN0 ,  RLANG ,  VRT ,  LAT , 

2  ADDRES, LPP, BEAM, DRAFT, DISPLM,OM,DELGM,KC,KROLL,LCB,GRAV,RHO, 
2  VKDES , VKINC , DBLWL 

ORAV  -  ORAV  *  UNTCONV 
LPP  •  LPP  *  UNTCONV 
LCB  ■  LCB  *  UNTCONV 
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DBLWL  »  OBLWL  •  UNTCONV 


•  WRITS  (  * ,2000) 

*  WRITS  (10,2000) 

*2000  FORMAT  (24X, '  IH  HEAD  ARO  IP  KH*/) 

ISPESD-0 
I HEAD-0 


DO  200  IV-1, NVK  I  Loop  ovar  ship  spaad 

DO  190  IH»1,HNMU  1  Loop  ovar  13  SMP  haadings 

RSAD  (11)  SHPS  PD , HEADNG , OMEGAS 
IF  (VRT)  READ  (11)  MOTV 
IF  (LAT)  READ  (11)  MOTL 
IF  (ADORES)  READ  (11)  HJV,HJL,H7 


Skip  if  not  daairad  ship  spaad 

IF  (SHPSPD  .GT.  SPEED)  GO  TO  210 

IF  (ABS(SHPSPD-SPEED)  .GT.  EPS)  GO  TO  190 

ISPEED-1 


_ _ _ _ _ 

*  Loop  ovar  plana 


IP  •  1  -  STBD  plana  haadinga 
IP  •  2  -  port  plana  haadi.igs 


DO  180  IP-1,2  I  Loop  ovar  plana 

IPLAlfE-IP 


Datarmina  if  this  haading  is  ono  of  tha  compoi.ant  haadinga 
KH-0 

DO  130  LH-1,NMU  !  Loop  ovar  componant  haadings 

ARO-CHDNO(LH) 

OO  TO  (110, 120), IP  i  Salact  plana  (STBD  or  PORT) 


8TBD  plana  haadings 

110  IF  (ARO. GT. 180.)  00  TO  130 

IF  (ABS(ARG-HEADNG) .GT.EPS)  GO  TO  130 

KH-LH 

GO  TO  140 


PORT  plana  haadings 
120  IF  (ARO. LE. 180.)  OO  TO  130 
ARG»ABS(ARO-360.) 

IF  (ABS(ARG-HEADNO). GT.EPS)  GO  TO  130 


88 


KH-LH 
00  TO  140 


130  CONTINUE 


IF  (KH.EQ.O)  GO  TO  180 


i  End  loop  over  component  headings 
l  Skip  if  not  a  component  heading 


*  This  is  one  of  the  11  component  headings 

140  I HEAD-1 

ARG-CKDNG ( KH ) 

*  WRITE (  *,2010)  IH,H£ADNG, ARO, ZP,KH 

*  WRITE (10, 2010)  1H,KEADN0, ARO, ZP,KH 
•2010  FORMAT  (24X,I5,2F6.0,2IS) 


Store  longcreated  roll  mean  square  values 


DO  160  IA-1,NRANG 


I  Loop  over  8  mean  roll  angles 


DO  ISO  IW-l,NOMEGA  I  Loop  over  30  wave  frequencies 

ctemp* ( 0 . , 0 . )  i  Head  or  following  seas 

IF  (1H.OT.1  .AND.  IH.LT.13)  CTEMP-MOTL ( 2 , IW, IA) 

CTEMP-CTEMP/UNTCONV 

R(IW)  -  CABS (CTE HP) * *2  *  SWAVE(IW) 

150  CONTINUE  i  End  loop  ovsr  wave  frequencies 

CALL  ALCRNO  (NOMEOA,OMEOA,R,ROLVAR(IA,XH) ) 


160  CONTINUE 
180  CONTINUE 


t  End  loop  over  mean  roll  angles 
I  End  loop  over  plane 


IF  (NMU  .EQ.  1  .AND.  I HEAD  .EQ.  1)  00  TO  220 


190  CONTINUE 


t  End  loop  over  13  SMP  headings 


•  Skip  if  this  is  the  correct  speed  and  heading 


IF  ( 1 SPEED. EQ. 1  .and.  IHBAD.EQ.l)  00  TO  220 


200  CONTINUE 


I  End  loop  over  ship  speed 


210  WRITE  (  *,1000) 

WRITE  (10,1000) 

1000  FORMAT  ( '  Did  not  find  speed  or  heading. 
STOP 


Program  stopped. ' ) 


Roll  Iteration 
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220  DO  240  XA-1, NRANG 
RLCALC (IA)  -  0 


1  Loop  over  8  moan  roll  angles 


DO  230  XH«1,NMU  1  Loop  ovor  component  heading* 

RLCALC(IA)  -  RLCALC (IA)  +  B2(IH)**2  *  R0LVAR( IA, XH) 

230  CONTINUE  1  End  loop  over  component  headings 

RLCALC (IA)  -  STATXS  *  SQRT ( RLCALC ( X A ) )  *  RAT) DEC 

240  CONTINUE  i  End  loop  over  mean  roll  angles 

CALL  RLITR  (RLANC, NRANG, RLCALC, RLANS) 

IF  (RLANS. EQ.0. )  STOP 

RETURN 

END 


C  DECK  RLITR  -  Performs  roll  iteration 
*  3/31/88  8<40  am 

SUBROUTINE  RLITR  ( RLANC, NRANG, RLCALC, RLANS) 

DIMENSION  RLANG(8) ,RLCALC{8) ,DXPF(8) ,ELM(4,8) 

DO  10  IA«1, NRANG  1  Loop  over  8  Man  roll  angles 

DXrF(XA)  -  RLANC (IA)  -  RLCALC (IA) 

10  CONTINUE 

X0  •  0. 

IF  (X0  .GE.  DXFF(l) )  GO  TO  20 
RLANS  -  RLCALC ( 1 ) 

GO  TO  40 

20  IF  (X0  .LE.  DXFF( NRANG) )  GO  TO  30 
RLANS  -  RLCALC (NRANG) 

GO  TO  40 

30  CALL  SPFIT  (D IFF, RLANC, ELM, NRANG) 

CALL  8PLVAL  (DIFF, NRANG, ELM, 0., RLANS, DUM,IELM) 

40  CONTINUE 

RETURN 

END 


C  DECK  SCTH  -  Computes  longcrested/shortcrested  time  histories 

*  8/31/89  llilO  am 

SUBROUTINE  SCTH 

*  Compute  shortcrsstsd/longcrsstsd  time  histories  for 

*  wavs  height  and  the  6  DOF  motions, 

*  surge,  sway,  heave,  roll,  pitch,  and  yaw, 

*  at  one  speed,  one  predominant  heading, 

*  (identified  by  significant  wave  height  and  modal  wave  period) 


COMMON  DUMMY , US , CS , IvS , I vuS , PAGE , ECS , BELL , DISP , 

2  CLR , Y8 , NS , N , Sampler ate , D t , Runnuaber , Naveh* ight , Head ing , 
2  Trials , Dates , Times , Locat ions , Personnels , 
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2  Names , Factor ( 32 ), UnitsS , 

2  CooxnantaS , Count ,  B ,  P limit , Nlimit ,  Npar an, 

2  Rasul ts (32,4) , Dindx ( 32 , 2 ) , FIS , SMPDATAS , STHOATAS , DATAS , 

2  SHIPTYPS , SHIPS , VARIANTS , CYCLES , LSHIP , LDATAS , LSTKDATA , LSMPDATA 
CHARACTER* 80  FIS, SMPDATAS, STHDATAS, DATAS 
CHARACTER* 8  SHIPTYPS, SHIPS 
CHARACTER  VARI ANTS *1, CYCLES *2 
INTEGER  Dindx 
COMMON  /DTITL/  DtitlaS 
CHARACTER* 72  DtitlaS 
COMMON  /BK1/  SCRMS ( 10) , NMAX 
COMMON  /BK2/  UNTCONV , VKMETR 

COMMON  /SINCOS/  SI (Ot 3600) , CO(0t 3600) ,XJTX,RDX, DRX,X2PI 
COMMON  /EMA/  EIC, ESPEBD , BREAD , ESIGWH , ETMODAL, STATI S , 

2  ESTART,EEND,NW,NMU,CHDNG(11 ) ,B2 (11) , HE (150, 11) , 

2  COEFR( 16500) ,COEFI (16500) 

CHARACTER* 4  US , CS , I vS , I vuS , Options , AS , UPCS 
CHARACTER  YS,NS,ECS,BELL,DISP*8,PAGE*2,CLR*2 
CHARACTER* 18  DataS , TiraeS , Names ( 32 ) , UnitsS ( 32 ) 

CHARACTER* 40  Trials, Locations, Personnels, CommentsS 
INTEGER  TT,XS,XE,XL 
INTEGER*4  JA 

REAL  Min ( 32 ) , Max ( 32 ) , Mean 

DOUBLE  PRECISION  Tamp, ARC, Sum (32) ,Sumaqr{32) 

DIMENSION  THSC(10) ,THLC(10) 

DATA  EPS/0.001/ 

AS-'CLS' 


initialize  analysis  arrays 

DO  10  I«1,N 
Max(I)-(-32767) 

Min(I)-(32767) 

Sum(I)«0 
8umsqr(I)»0 
10  CONTINUE 


Dafina  variables  for  start  and  and  times 

TSTART-ESTART 
TEND-EEND 
TLRUN-TEND-TSTART 
Xs*TSTART*Samplsrats+l 
Xa«TEND*8amplerata+l 
X 1-TLRUN* Sampler ats+1 
IF  (Xs.LE.O)  Xa-1 
Xa»Xs+Xl-l 
TSTART-(Xs-l. )*DT 
TEND- ( Xa-1. )*DT 
ESTART-TSTART 
EEND-TEND 


Open  binary  data  fila  of  time  histories 

FIS  -  STHDATAS ( 1 « LSTHDATA ) / / ' \ ' / /DATAS  ( 1 » LDATA8 ) / / 1 . DAT  * 
OPEN  ( 12 ,  FILE-FIS ,  FORM-  ’  UNFORMATTED ’ ,  STATUS- •  UNKNOWN ' ) 


I COUNT-COUNT 
WRITE  (12)  I COUNT , N 


I  no.  of  samples  in  run 


WRITE  (  *,2000)  (NamsS(I) ,1-1,7), (UnitsSf I ) , 1-1 , 7 ) 

WRITS  (10,2000)  (Names (I) , 1*1,7) , (Unit«S ( I ) , 1-1,7) 

2000  FORMAT  (///11X, ‘FIRST  20  SECONDS  OF  WAVE  HEIGHT  AND  6DOF  TIME  * 

2  'HISTORIES' //SX, 'TIME* ,4X,A8, IX, A8,2X,2A8,2X, 2A8, 3X,A8/ 

2  6X, 'SBC' , 5X,A6, 3X,A6,3X, A6, 3X, A6,4X,A6,2X,A6, 4X, A6/) 

TCLR-30  I  DELTA  TIME  IN  SECONDS  WITHIN  THE  RUN  TO  CLEAR  SCREEN 
ICLR-TCLR*Saaplerate+l 


Compute  time  histories  as  a  function  of  time,  heading, 
frequency  and  channel 


IT-0 

DO  700  TT-Xs,Xe  1  Loop  over  time 

TIM  -  (TT-1 . ) *DT 
TDIFF-TIM-TSTART 
IT-IT+l 
Count*IT 

DO  20  M-1,N  1  Initialize  THSC  to  zero  for  current  time 

THSC(M)  >  0. 

20  CONTINUE 


DO  600  XHal,NMU  I  Loop  over  component  headings  for 

shortcrested/longcrested  seas 

NHB  -  (IH-1)  *  NW  *  NMAX 

DO  30  M-1,N  I  Initialize  THLC  to  zero  for  current  time 

THLC(M)-0. 

30  CONTINUE 


DO  S00  1—1 , NW  I  Loop  over  frequency 

NWB  -  (1-1)  *  NMAX  ♦  NHB 

Compute  sine  and  cosine  for  current  time 
ARO  -  WE(I, IH) *TIM 
ARC  -  AM0D(ARG, X2PI) 

JA  >  ARO  *  RDX  ♦  0.5 

SP  ■  SI ( JA)  I  Obtain  sine  from  lookup  table 

CP  ■  coj JA)  t  Obtain  cosine  from  lookup  table 


DO  400  M»1,N  1  Loop  over  channel 

L  •  M  ♦  NWB 
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Compute  component  heeding  time  hietory  for  chennel  m 
THLC(M)  •  THLC { M )  ♦  COEFR(L)*CP  -  COEFI(L)*SP 

400  CONTINUE  I  End  chennel  loop 

500  CONTINUE  1  End  frequency  loop 


Compute  ehortcreeted  time  hietoriea 

DO  40  M>1,N  1  Loop  over  chennele 

THSC(M)  -  THSC(M)  *  B2 ( IH) *THLC (M) 

40  CONTINUE 


600  CONTINUE  1  End  loop  over  component  heedinga 


Print  ehortcraated  time  hiatoriaa  for  ell  ehannela 

IF  (TDIFF  .LE.  20.)  WRITE  (  *,2010)  TIM, (THSC(M) ,M-1, 7) 

IF  (TDIFF  .LE.  20.)  WRITE  (10,2010)  TIM, (THSC(M) ,M-1 , 7 ) 

2010  FORMAT  (F9.2,7F9.3) 

IF  (IT  .EQ.  ICLR)  CALL  SYSTEM  (AS)  t  Clear  acreen 

Write  ehortcreeted  time  hiatoriee  to  file 
WRITE  (12)  (THSC(M) ,M-1,N) 

DO  50  M"1,N  1  Perform  minimum  enelyaia  over  channel 

Temp  •  THSC(M) 

Sum(M)  ■  Sum(M)  ♦  Temp 
Sumaqr(M)  ■  Sumaqr(M)  +  Temp* Temp 
IF  (Temp  .OT.  Max ( M ) )  Max (M)  •  Temp 
IF  (Temp  .LT.  Min(M))  Min(M)  •  Temp 
50  CONTINUE 


700  CONTINUE  1  End  loop  over  time 


CLOSE  (12) 

Compute  mean  and  atandard  deviation  and  atore  in  reaulta  array 
DO  90  M»1,N 

ARC  -  (Sumaqr(M)  -  Sum(M) *Sum(M) /Count) 

IF  (ARC  .OT.  0.)  GO  TO  80 
WRITE  (  «,'010)  M, ARO 
WRITE  (10,1010)  M, ARC 

1010  FORMAT ( 'SQRT  OF  A  NEO.  NUMBER.  M-',I3,’  ARO-',F10.3) 

ARO  -  0 

80  Stddev  -  D8QRT( ARO/ (Count-1)) 

Mean  ■  Sum (M) /Count 
Reaulta (M,l)  ■  Maan 
Reaulta (M, 2)  -  Stddev 
Reaulta (M, 3)  -  Max(M) 

Reaulta(M,4)  -  Min(M) 

90  CONTINUE 

RETURN 

END 
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C  DECK  SLKNTH  -  Raturni  location  of  last  non-blank  charactar  in  a  string 
*  2/31/66  8 1 45  am 

SUBROUTINE  SLKNTH  (AS,K) 

CHARACTER* (*)  AS 
L-LEN(AS) 

K-L+l 

DO  10  M-1,L 
K-K-l 

IF  (AS(KsK) .NE. CHAR (32 ) )  00  TO  20  1  Taat  for  trailing  blanks 

10  CONTINUE 
20  CONTINUE 

RETURN 

END 


C  DECK  SPFIT  -  Cubic  non-paramatric  splins  fit  for  raal  data 
*  3/31/88  8> 50  am 

SUBROUTINE  SPFIT  (X,  Y ,  ELEMS,  NPTS) 


SPFIT  CREATED  FROM  SPLINE  E  N  HUBBLE  JUNE  19 

FITS  CUBIC  NON-PARAMETRIC  SPLINE  SEGMENTS 
TO  SET  OF  REAL  DATA  POINTS 


INPUTS 

X  -  ARRAY  OF  REAL  INDEPENDENT  VARIABLES 

Y  -  ARRAY  OF  REAL  DEPENDENT  VARIABLES 

NPTS  -  NUMBER  OF  (X,Y)  DATA  POINTS 
RETURN 

ELEMS  -  ARRAY  OF  (NPTS-1)  SEGMENTS  IN  FOLLOWING  FORM 
(  Y(I),  D( I ) ,  Y ( 1*1 ) /  D(X+1)  )  ,  WHERE 

D  -  ARRAY  OF  SECOND  DERIVATIVES  AT  DATA  POINTS 

ARRAYS  A,B,C  ARE  MAINLY  SUB  DIAG. ,  DIAGONAL,  AND  SUPER  DIAG. 

D  ARRAY  IS  THE  RIGHT  HAND  SIDE  OF  MATRIX  EQUATION 

SECOND  DERIVATIVES  AT  NODES  ARB  PLACED  IN  D  ARRAY  AFTER  SOLUTION 

SOLUTION  TECHNIQUE  IS  GAUSSIAN  ELIKXNATION 

BOUNDARY  CONDITIONS  SET  BY  EXTRAPOLATION  OF  SECOND  DERIVATIVES 


COMMON/IO/ICARD,  IPRIN,  POTFIL, COFFIL,RAOFIL, RMSFIL,ORQFIL,  SPCFIL, 
2  ISCARD, BLKFIL, SCRFIL, SPLFIL, LCOFIL, LRAFIL, SEVFIL 
INTEOER  I  CARD, IPRIN, POTFIL, COFFIL, RAOFIL, RMSFIL,ORGFIL, SPCFIL, 

2  ISCARD,  BLKFIL,  SCRFIL,  SPLFIL,  LCOFIL, LRAFIL,  SEVFIL 
DIMENSION  X(NPT8) , Y(NPTS) , ELEMS ( 4 , NPTS ) 

DIMENSION  A(100) ,  B(100),  C(100),  D(100) 

N  -  NPTS 
NL1  •  N  -  1 
NL2  -  N  -  2 
DO  SO  1-2, N 

IF  <X(I)  .OT.  X(I-l) )  00  TO  50 

WRITE  (  *,888)  X ( 1-1 ) , X( I ) 

WRITS  (10,888)  X(I-1),X(I) 

00  TO  88888 
SO  CONTINUE 

IF  (N  .LE.  100)  OO  TO  100 
WRITE  (  *,999) 

WRITE  (10,999) 

N  -  100 
100  CONTINUE 
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125 


150 


200 


250 


275 


I P  (N  .OT.  2)  00  TO  125 

0(1)  -  0.0 
0(2)  •  0.0 
OO  TO  375 
CONTINUE 

IP  (N  .CT.  3)  CO  TO  150 

TOD  -  2.*((X(3)-X(2))*Y(1)  +  (X(2)-XU))*¥(3)-(X(3)-X(1))*Y(2)) 
/((X(3)-X(2))«(X(2)-X(1))*(X(3)-X(1))) 

0(1)  •  YOO 
0(2)  -  YOO 
0(3)  •  YOO 
OO  TO  375 
OOMTZNUX 
DO  200  I«1,N 
A(I)  »  0.0 
B(X)  -  0.0 
C(I)  ■  0.0 
D(X)  •  0.0 
CONTINUE 

SET  UP  MATRICES (A  TRIDIAGONAL  STRUCTURE) 

A(l)  ■  (X(3)-X(2))/(X(3)-X(1)) 

C(l)  ■  2.0 

B( 1)  ■  1.0  -  A(l) 

D ( 1 )  -  6.0»((Y(3)-Y(2))/(X(3)-X(2))-(Y(2)-Y(1))/ 

1  (X(2)-X(1)))/(X(3)-X(1)) 

H  -  X  ( 3 )  -  X  ( 2 ) 

OO  250  1-3, NL1 

HP  -  X(I+1)  -  X(I) 

C(I)  -  HP  /  (H+HP) 

B ( I )  -  2.0 

A(I)  -  1.0  -  C(I) 

0(1)  -  6. 0* ( ( Y (I+1)-Y(I ) ) /HP- (Y ( I  )-Y ( I-l) ) /H) / (HP+H) 

H  -  HP 


CONTINUE 

8ET  BOUNDARY  CONDITIONS 


C(2) 

m 

(X(2)-X(1))/(X(3)-X<2)) 

A(2) 

m 

1.0 

6(2) 

m 

-1.0-C(2) 

D(2) 

m 

0.0 

C(2) 

m 

-A(2)*A(1)/B(1)  ♦  C(2) 

C(N) 

m 

(X(N)-X(N-l) )/ (X(N-l)-X(N-2) ) 

A(N) 

m 

-1.0  -  C(N) 

6(8) 

m 

1.0 

0(8) 

m 

0.0 

SOLVE  EQUATIONS 
II  -  1 

DO  300  I-1,NL2 
XI  -  I  ♦  1 


12  •  I  ♦  2 
AUOH  -  ABS  (B(X)) 

IP  (AUOH  .LT.  1.01-06)  OO  TO  275 
CONST  ■  A( II )  /  B( X ) 

B(Z1)  -  B(Z1)  -  CON$T*C( X ) 
0(11)  •  0(11)  -  CONST*D(I) 

IP  (I  .NX.  NL2)  OO  TO  300 

A(N)  -  A(N)  -  C(8) *C(X)  /  B(X) 
D(N)  -  0(N)  -  C(N) *0(1)  /  B( I ) 
OO  TO  300 
CONTINUE 

II  -  I  ♦  1 

0(1)  •  0(1)  /  C(X) 

0(11)  -  0(11)  -  8(I1)*D(I) 
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B(I1)  -  A(I1) 

A(Z1)  -  0.0 

D(I2)  »  D(I2)  -  A(I2)*D(Z) 

A(Z2)  -  0.0 

IF  (Z  .NX.  NL2 )  00  TO  300 

A(M)  -  C(H) 

300  CONTINUE 

DBT  -  B(NL1) *B(N)  -  C(NL1)*A(N) 

STORE  -  D(N) 

D(N)  -  (B(NL1)*D(N)  -  D(NL1)*A(N))  /  OBT 
D(NL1)  -  (D(NL1)*B(N)  -  C(NL1) *STORE)  /  DBT 
ZF  *  0 

DO  3SO  1-2, NL2 
JZ  -  M  -  Z 

ZF  (JZ  .EQ.  ZP)  GO  TO  350 
ZF  (JZ  .XQ.  ZZ)  00  TO  325 

D(JZ)  -  (D ( JI )-C( JZ ) *D( JI+1 ) ) /B( JZ ) 

OO  TO  3S0 
32S  CONTZNUX 

ZP  -  JI-1 
STORK  -  D ( JZ ) 

D( JZ )  •  D(ZP) 

D( ZP)  -  (STORE  -  C(IP)*D(JI+1) )/B(ZP) 

3S0  CONTINUE 

0(1)  -  <D(1)  -  A(1)«D(3)  -  C(l) *D(2) )  /  B(l) 

«  SET  UP  SPLINE  SEGMENTS 

375  CONTINUE 

DO  400  I«1,NL1 
II  -  I  ♦  1 
XLXMS (1,1)  -  Y(I) 

ELXMS (2, Z )  -  D(  I ) 

XLXMS (3,1)  ■  Y(  II) 

ELEMS (4, Z )  -  0(11) 

400  CONTINUE 
99999  CONTINUE 
RETURN 

86888  CONTINUE 
STOP 

888  FORMAT  ('0  8PFZT  —  X  VALUES  NOT  ASCENDING' ,  2E16.8) 

999  FORMAT  ('0  8PFZT  —  NPTS  EXCEEDS  100.  ONLY  99  SEGMENTS  RETURNED') 

XND 


C  DECK  SPLVAL  -  Evaluates  a  real  non-parametric  spline 

*  3/31/88  8i50  am 

8UBROUTZNX  SPLVAL  (X,  NPTS,  ELEMS,  XO,  YO,  SO,  IELM) 

*  SPLVAL  CREATED  FROM  SPLFZT 

*  EVALUATES  A  REAL  NON-PARAMETRIC  SPLINE 

*  INPUTS 

*  X  -  ARRAY  OF  INDEPENDENT  VARIABLES 

*  NPTS  -  NUMBER  OF  VALUES  ZN  X-ARRAY 

*  XLXMS  -  SPLINE  SEGMENTS  GENERATED  BY  SPFZT 

*  XO  -  X-VALUX  AT  WHICH  SPLINE  IS  TO  BE  EVALUATED 

*  RETURNS 

*  YO  -  F(X0)  •  Y -VALUE  EVALUATED  AT  XO 

*  SO  -  SECOND  DERIVATIVE  EVALUATED  AT  XO 

*  IELM  -  INDEX  OF  8PLZNE  SEOMENT  CONTAINING  XO 

COMMON/ 10/ ICARD , IPRIN , POTFIL , OOFFIL , RAOFIL , RMSFZL, OROFIL , SPCFIL , 
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2  XSCARD ,  BLKFXL ,  SCRPXL ,  SPLFXL ,  LCOFXL ,  LRAFIL,  SEVPIL 
INTEGER  I  CARD,  IPRIN,  POTFIL,  COPPIL,  RAOPIL,  RM3FIL,  OROFIL,  8PCFIL, 

2  XSCARD, BLKFXL,  SCRPXL, SPLFIL,LCOFIL, LRAFIL, SEVFIL 
DIMENSION  X  ( NH8 ) ,  ELEMS  ( 4 ,  NPT8 ) 

N  -  NPTS 

XP  (XO.GE.X(l)  .AND.  XO.Lt.X(N))  00  TO  100 
WRITS  (  *,999)  XO 
WRITS  (10,999)  XO 
GO  TO  99999 
100  CONTINUE 

DO  200  I»2,N 

XP  (XO  .OT.  X(X))  OO  TO  200 
GO  TO  300 
200  CONTINUE 
300  CONTINUE 

X  -  X  -  1 

XX  -  X(I+1)  -  X(I) 

XI  -  XO  -  X(X) 

X2  -  X(H-l)  -  XO 
XX6  ■  XX  •  XX  /  6.0 
Y1  -  ELEMS (1,1) 

Y2  -  ELEMS ( 3 , X ) 

SI  «  ELEMS (2,1) 

82  -  ELEMS (4, I) 

YO  -  (SI  *  X2**3  +  S2  *  Xl**3)  /  (6.0  *  XX)  ♦ 

.  (  ( Y1  -  S1*XX6 )  *  X2  ♦  (Y2  -  S2*XX6)  *  XI  )  /  XX 

SO  -  (SI  *  X2  *  82  *  XI)  /  XX 

XELM  -  X 
RETURN 

99999  CONTINUE 
STOP 

999  FORMAT  (‘0  SPLVAL  —  EXTRAPOLATION  NOT  ALLOWED.  XO  ,  S16.8) 
END 


C  DECK  TFNFXT  -  Pits  lstsrsl  transfer  functions  for  non-linsar  roll  snswsr 
•  3/31/88  8 t SO  am 

SUBROUTINE  TFNFIT  (RLANG,NRANG,RLANS,MOTL, JM, IW.CTFN) 

DIMENSION  RLANO(8) 

COMPLEX  MOTL( 3, 30, 8) , CANS (8) , CELM(4, 8) , CTFN,CDUM 

XP  (RLANS  .GE.  RLANO(l) )  GO  TO  10 
CTFN  ■  MOTL(JM,IW, 1) 

GO  TO  40 

10  IP  (RLANS  .LB.  RXANO(NRANO) )  GO  TO  20 
CTFN  ■  MOTL(JM,XW,NRANO) 

OO  TO  40 

20  DO  30  XA*1,  NRANG  1  Loop  over  8  assn  roll  snglss 

CANS ( IA)  ■  MOTL(JM,XW,XA) 

30  CONTINUE 

CALL  CPPXT  ( RLANG , CANS ,  CILH , NRANG ) 

CALL  CPLVAL  (RLANO, NRANG, CELM, RLANS , CTFN, CD UM, I ELM) 

40  CONTINUE 

RETURN 

END 
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DECK  TRFN  -  Transfer  function  subroutine 
6/31/89  11 i 10  sm 

SUBROUTINE  TRFN 

COMMON  DUMMY, US, CS, XvS, XvuS, PAGE, ECS, BELL, DISP, 

2  CLR, Y8,NS,N, Samplerate , Dt , Runn umber , Wavehaight , Heeding , 

2  Trials , Dates , Times , Locations , Personnels , 

2  Names /Factor (32), Unites, 

2  Comment sS, Count, B,Plimit,Nlimit,Nparam, 

2  Results (32,4), Dindx ( 32 , 2 ) , FIS , 8MPDATAS , ST HD AT AS , DATAS , 

2  8HXPTYPS , SHIPS , VARIANTS , CYCLES , LSHIP, LDATAS , L8THDATA , LSMPDATA 
CHARACTER* 80  FIS , 8MPDATAS , STHDATAS , DATAS 
CHARACTER* 8  SHIPTYPS , SHIPS 
CHARACTER  VARIANTS*1, CYCLES *2 
INTEGER  Dindx 
COMMON  /DTXTL/  DtitleS 
CHARACTER* 72  DtitleS 
COMMON  /BR1/  SCRM5 ( 10 ) , NMAX 
COMMON  /BK2/  UNTCONV , VKMETR 

COMMON  /EMA/  EIC, ESPEED, EHEAD, ESIGWH, ETHODAL, STATIS, 

2  ESTART,ESND, NWW,NMU, CHDNO(ll) ,B2 ( 11 ) , EWE (150,11), 

2  COEFR(10, ISO, 11) ,COEFI(10, ISO, 11) 

COMMON  /WAVEPNT/  NWPOINT , HPNTXLOC ,  WPNTYLOC , HPNTZLOC , WPNTNAMES , 

7  Wkvtnnn  tuverr/y*  uiwttjv* 

DIMENSION  WPNTXLOC ( 3 ) , WPNTYLOC ( 3 ) , WPNTZLOC { 3 ) , WAVEXLOC ( 3 ) , 

2  WAVEYLOC ( 3 ) , WAVEZLOC ( 3 ) 

CHARACTER  WPNTNAMES ( 3 ) *20 

CHARACTER* 4  US, CS, IvS, IvuS, Options, AS, UPC8 
CHARACTER  YS,N8,ECS,BELL,DISP*8,PAGE*2,CLR*2 
CHARACTER* 18  Dates, Times, Names ( 32 ) , Unit S8( 32) 

CHARACTER* 40  Trials, Locations, Personnels, Coomentss 
COMMON  /BK3/  MOTV,MOTL,HJV,HJL,H7,ORSTF,CTEMP 
COMPLEX  MOTV(3, 30) , MOTL(3,30, 8) ,KJV(3,30) ,HJL(3,30) ,H7 (30) 
COMPLEX  ORGTF(30, 11,6) ,CTEMP 

DIMENSION  W(150) , TR(150) ,TI( 150) ,8(150) ,RK(1S0) , RANDP(ISO) , 

2  RANDW(ISO) ,0M0(30) ,TFR(30) ,TFI(30) ,R(30) ,SWAVE(30) 

DIMENSION  RLAN0(8) 

CHARACTER* 4  TITLE (20) 

REAL  LPP,KO,KROLL,LCB 
LOGICAL  VRT,LAT, ADORES 
REAL  MU 

CHARACTER  FXLSC*84,STRXNC*256 
DATA  EPS  /0.5/ 

PI  -  3.1415927 

X2PX  -  2*PX 

NO  •  PI  /  180 

RADDEG  •  180  /  PI 

IC-EIC 

NW-NWW 

SIOWH-ESIOWH 

TMODAL-ETMODAL 

SHP8PD-ESPEED 

HDNOa 180-EHEAD  1  Convert  JMP  output  heading  reference  to 

1  internal  heading  reference  (180  deg  diff) 


•  Open  fils  of  origin  motion  transfer  functions  from  SMP 
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PIS  •  8MPDATAS (It L8MPDATA ) / / ' \ ' / / 

2  SHIPS (ltLSHIP) //VARIANTS (li 1) // ' ,ORQ ' 

OPEN  ( 11 , PILE-PIS  ,  PORN- • UNFORMATTED ’ , STATUS- ' OLD ' ) 

Read  header  record 

READ  (11)  TITLS,NVK,NNKU,NOK£OA,OMO,NRANO,RLANO,VRT,LAT, 

2  ADDRBS, LPP, BEAM, DRAFT, DISPLH, OH, DELQH, KG, KROLL, LCB, ORAV,RHO, 
2  VKDES, VKINC,D8LWL 

GRAY  -  GRAV  *  UNTCONV 
LPP  -  LPP  *  UNTCONV 
LCB  -  LCB  *  UNTCONV 
DBLWL  -  DBLWL  *  UNTCONV 


Compute  150  wave  frequencies 

OH  •  ( OMG ( NOMEGA ) -OMG ( 1 ) )  /  (NW-1) 

HI  -  OMG ( 1 ) 

DO  10  IW— 1,NW  I  Loop  over  ISO  frequencies 

W(IW)  -  HI  ♦  (IW-1)*DW 
10  CONTINUE 


Compute  2  parameter  BRETSCHNEIDER  wave  spectra 
for  ISO  wavs  frequencies 

CALL  BRWVSP ( NW , S IGWH , TMODAL , W , 8 ) 

DO  20  IH-1,NH  1  Compute  wave  amplitudes 

RK(IW)  -  SQRT ( 2 * 5 ( IH ) *DW ) 

20  CONTINUE 


store  component  headings 

IP  (IC  .  EQ.  1)  SHEAD-HDNO+ IS.  I  Longcrested  seas 

IP  (IC  .EQ.  2)  SHKAD-HDNO+90 .  1  Shortcrested  seas 

DO  30  IH-1,NMU  1  Loop  over  component  headings 

ARO  -  SHEAD  -  IH*15. 

IF  (ARG  .LT.  0.)  ARO  -  ARG  ♦  360. 

CHDNO(IH)  -  ARO 
30  CONTINUE 


Compute  weighting  constants  as  a  function  of  component  headings 

B2(l)«l.  1  Longcrested  weighting  constant 

IF  (IC.EQ.l)  GO  TO  SO 

Shortcrested  weighting  constants  for  11  component  headings 

PION12-PZ/12 
DO  40  K-1,6 
A- (K-l ) *PION12 
CA— 008(A) 

OON-CA*CA/6 
SQCON-SQRT ( CON ) 

L-X+5 

B2 (L)-SQCON 

IF  (E.EQ.l)  OO  TO  40 

L-7-K 
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B2 (L) -SQCON 
40  CONTI HUS 


*  Computa  3  parametar  BRSTSCHNSXDER  wavs  spectra 

•  for  30  wav*  fraquaneiaa 

SO  CALL  BRWVSP ( NOMSGA , S IGWH , TMODAL , OHO « 5.  WAVE ) 


Perform  roll  itaration  for  specified  aaaway 

CALL  RLITER  ( SHPSPD , NMU , B2 , CHDNG , STATI S , SWAVE , RADDEG ,  RIANS ) 

Stora  origin  motion  tranafar  functions 

CALL  ORGTPN  ( SHPSPD , NMU , CHONO , RIANS , RADDEO ) 


Computa  atandard  daviation  (RMS)  for  wava  haight  and 
6  OOF  motions  in  fraquancy  domain 

DO  80  JC-1,N  i  Loop  ovar  ehannal 

JCWC-1 

SCRMS ( JC) >0 

DO  70  IH-1 , NMU  1  Loop  ovar  componant  haadinga 

DO  60  XW-l,NOMEGA  1  Loop  ovar  wava  fraquancy 


IF  (JC.EQ.l)  THEN 

TFAMP-1  1  Wava  haight  at  Origin 

ELSEXF  (JC.GE.2  .AND.  JC.LE.7)  THEN 

TFAMP-CABS(OROTF(XW,IH, JC1) )  I  6  DOF  motions 

ELSE 

TFAMP-1  (  Wava  haight  at  a  point 

ENDXF 


R(IW)-TFAMP**2  *  SWAVE (IW)  *  B2(IH)**2 
60  CONTINUE  1  End  loop  ovar  fraquancy 


Computa  varianca  valuaa  of  -wava  haight  and  6 DOF  motions 
for  componant  haadinga 
CALL  ALGRNO(NOMEGA,OMG,R,AREA) 

SCRMS ( JC ) -SCRMS { JC ) ♦ AREA 

70  CONTINUE  I  End  loop  ovar  haadinga 


*  Computa  standard  daviation  (RMS)  valuaa  for 

*  wava  haight  and  6DOF  motions 
SCRMS (JC)-SQRT(ABS (SCRMS (JC))> 

80  CONTINUE  I  End  loop  ovar  ehannal 


DO  200  IH-1, NMU  1  Loop  ovar  componant  haadinga 

ARC— CHDNG ( IH ) 

I PLANE-1 

IF  (ARO.LT.O.  .OR.  ARO.OT.ISO.)  XPLANE-2 
NARG  -  (ARG/1S  ♦  1) 

IF  (I PLANE  .IQ.  2)  ARG  -  AB8 ( ARG  -  360.) 

MU  -  ABS(ARO)  *  RD  1  Componant  haading  angle  in  radians 
COSMU  >  COS (MU) 
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8ZNMU  -  SIN(MU) 


Oat  random  numbara  aa  a  function  of 
handing,  phaaa  and  fraquaney 


Salact  aaad  for  random  numbar  ganarator  for  aach  heading 
SEED  -  NARQ  +  2000 
X">RANDS  ( SEED ) 


Sava  random  numbara  for  phaaa  anglaa 

DO  100  XN«1,NW  1  Loop  ovar  ISO  fraquanciaa 

RANDP(IN)  ■  RND ( ) 

100  CONTINUE 


Datarmina  if  it  ia  necasaary  to  adjuat  fraquanciaa  randomly 
(  beam  aaaa  or  ahip  apaad  *  taro  knota  ) 

NFLAO  ■  0  1  Don't  adjuat  fraquanciaa  randomly 

IF  (ARG.EQ.90.  .OR.  ARG.EQ.270. 

2  .OR.  ARG.EQ.-90.  .OR.  SHPSPD.EQ.0. ) 

2  NFLAO  ■  1  I  Adjuat  fraquanciaa  randomly 


IF  (NFLAG.EQ.0)  GO  TO  130 

Salact  aaad  for  random  numbar  ganarator  for  fraquanciaa 
SEED  -  NARG  +  3000 
XaRANDS ( SEED ) 

Sava  random  numbara  for  fraquanciaa 

DO  120  IW-1,NW  i  Loop  ovar  150  fraquanciaa 

RANDW(XM)  -  RND ( ) 

120  CONTINUE 

130  CONTINUE 


Compute  ISO  encounter  fraquanciaa 

AL  -  VKMETR  *  8HPSPD  *  COSMU  /  0RAV 

DO  140  IN-1, NN  i  Loop  over  ISO  fraquanciaa 

EWE (IN, IH)  -  ABS(W(IW)*(1.-AL*W(IW) ) ) 

Encounter  fraquanciaa  below  0.05  rad/aee  are  not  allowed 
IF  (EWE(IW,XH)  .LT.  0.0S)  EWE(IH,IH)  •  0.05 

IF  (NFLAO  .EQ.  0)  OO  TO  140 

Adjuat  fraquanciaa  randomly  (beam  aaaa  and/or  zero  ahip  apaad) 

DELTA  -  0. 99*DW/2 . 

NEC  -  EWE ( IN, ZH) 

NSL  -  NEC  -  DELTA 
RAND  •  RANDN(IN) 
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BWE(IW,IH)  -  WEL  ♦  BAND *2 .  ‘DELTA 


140  CONTINUE 


End  loop  ovor  froquoncy 


*  Interpolate  transfer  functions  for  150  frsqusnciss 

DO  170  JC*1,N  i  Loop  ovor  channel 

JC1  -  JC  -  1 
JC7  ■  JC  -  7 

DO  150  IW>l,NOMECA  !  Loop  over  30  wave  frequencies 
XF  (JC  .EQ.  1)  THEN 

*  Wave  height  transfer  function  at  Origin  location 

TFR(XW)  ■  1  i  Transfer  function  real  part 

TFI(IW)  ■  0  I  Transfer  function  imaginary  part 

ELSEIF  (JC.GE.2  .AND.  JC.LE.7)  THEN 

*  6  DOF  motion  transfer  functions  at  Origin  location 

TFR(IW)  ■  REAL(ORQTF(XW, IH, JC1) )  I  Transfer  function  real  part 

TFI(IW)  •  A I MAC ( OBCTF ( 1 W , IH , JC1 ) )  t  Transfer  function  imaginary  part 

ELSE 

*  Wave  height  transfer  function  at  other  point  locations 

XK  »  OMG( IW) **2  /  CRAV  i  Compute  wave  number,  K 

TFAMFL  ■  1  i  Transfer  function  amplitude 

XBAR  -  WAVEXLOC ( JC7 )  1  X  location  referenced  to  LCO 

YBAR  ■  WAVEYLOC ( JC7 )  I  Y  location  referenced  to  LCG 

PHS  -  -  XK  *  (XBAR*COSMU  ♦  YBAR*SINMU) 

TFPHS  -  PH8  1  Transfer  function  phase  in 

radians 

TFR(IW)  -  TFAMPL  •  COS (TFPHS)  I  Transfer  function  real  part 

TFX(XW)  -  TFAMPL  *  SIN (TFPHS)  I  Transfer  function  imaginary  part 

ENDIF 

150  CONTINUE  I  End  loop  over  30  frequencies 

CALL  XNTRPL  (NOMEOA,OMO,TFR,NW,W,TR) 

CALL  XNTRPL  (NOMEOA,OKO,TFX,NW,W,TX) 

DO  160  XW»1,NW  1  Loop  over  150  wave  frequencies 

AR01  •  TR(XW) 

ARG2  -  TX(XW) 

AMP  -  8QRT( AAC1*ARC1  +  ARC2»ARC2) 

PHS  -  ATAN2D ( ARC 2 , AR01 , RADDEO ) 

COEFR( JC, XW, XH)  -  AMP 
COEFX ( JC, XW, XH)  -  PHS 

160  CONTINUE  1  End  loop  over  150  frequencies 

170  CONTINUE  I  End  loop  over  channel 


*  Scale  transfer  functions  by  wave  spectral  amplitudes 

DO  180  IW«1,NW  1  Loop  over  150  frequencies 

DO  180  JC»1,N  1  Loop  over  channel 

COEFR ( JC , X W , XH ) -RK ( XW ) «COEFR ( JC , X W, XH ) 
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o  « 


180  CONTINUE 


I  End  loops  ovsr  channel  and  frequency 


Add  transfer  function  phase  angles  and  save  final  transfer 
functions  in  real  and  imaginary  form 

DO  190  IW«1,NW  1  Loop  over  150  frequencies 

RPH  -  X2PI*RANDP( XW) 

DO  190  JCalfN  I  Loop  ovsr  channel 

AMP  >  COEFR(JC,XW,XH) 

PHS  -  RPH  «■  COSFI(JC,IW,IH)*RD 
COEFR(JC,IW,IH)  -  AMP*COS(PHS) 

COEFI{JC,IW,IH)  *  AMP*SIN ( PHS ) 

190  CONTINUE  1  End  loops  over  channel  and  frequency 


200  CONTINUE  i  End  loop  over  component  headings 

CLOSE  (11) 

RETURN 

END 


DECK  UCASE  -  Converts  strings  to  uppercase 
4/16/88  lit 20  pm 

SUBROUTINE  UCASE  (AS,L) 


10 

20 


2 

2 


CHARACTER* {* )  AS 
CHARACTER* 1  LC(26) ,UC(26) 

DATA  LC  /'a* ,  'b* ,  'c* , 'd*  f  *e\ *f  *,  *g' 
'n'/o'/p'/q'i'r'/s'/t'/tt'/v', 
DATA  UC  /'A' , 'B' , 'C , 'D*  » 'E* , 'F’ , ’C' 
'N',,0,#,P',  *Q' ,  'R'»  'S',  '  T* ,  'U* ,  '  V' , 


•  v  • 

'*•/ 

,  *K’ , 
'l' / 


•1* 

•L* 


DO  20  I-1,L 
DO  10  J»l,26 

IF  (AS(Itl)  .NE.  LC( J) )  CO  TO  10 
AS  (It  I )  -  UC(J) 

CO  TO  20 
CONTINUE 
CONTINUE 


’m’ 


•M* 


RETURN 

END 


C  PROGRAM  END 


I 
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THIS  PASS  INTENTIONALLY  LEFT  BLANK 
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Vi  kivi 


—T— r.  cs-i^-s-.: 


APPENDIX  B 

LISTING  OF  ACTH  PROGRAM 
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C  DICK  ACTH  -  ACCESS  program  for  8TH  tima  histories,  ACTH 

9/3/89  9 i 00  pm 


PROGRAM  ACTH 


ACTH  -  Main  Program 


C  SUBLIST 


List  of  aubroutinee  j 

no. 

name 

type 

description 

1 

ACTHRESP 

subroutine 

ACTH  ship  responses 

2 

ATAN2D 

function 

Arctangent  function  in  degrees  for 

3 

CHKPHT 

subroutine 

Checks  STH  point  locations  against 
ACTH  point  locations 

4 

FLENTH 

subroutine 

Pinds  location  of  first  non-blank 
character  in  a  string 

5 

RDACTHINP 

subroutine 

Reads  ACTH  input  file 

6 

RDSTHTEXT 

subroutine 

Reads  STH  text  file 

7 

SLENTH 

subroutine 

Returns  location  of  last  non-blank 
character  in  a  string 

8 

UCA8B 

subroutine 

Converts  strings  to  uppercase 

9 

WRACTHLOO 

subroutine 

Write  ACTKLOC  text  file 

10 

WRACTHTEXT 

subroutine 

Writs  ACTH  text  file 

SHIP 

RESPONSE 

*  POINT 

SYSTEM 

NO 

NAME 

*  0 

EARTH 

1-6  - 

Origin  Motions  (Surge,  Sway,  Heave, 

Roll,  Pitch,  Yaw) 

7 

Wave  height  at  the  Origin  location 

*  >0 

EARTH 

1-3  - 

Motions  at  a  point  (Longitudinal, 

Lateral,  Vertical) 

4 

Relative  motion  at  a  point 

7 

Wave  height  at  a  point 

*  >0 

SHIP 

1-3  - 

Forces  at  a  point  (Longitudinal, 

Lateral,  Vortical) 


*  Ship  response  valccitiaa  and  accalarations  are  obtained  by 

•  selecting  the  TYPE  variable  ■  2  (vel.),  ■  3  (acc.).  Note 
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TYPE  •  1  (diapl. ) 


*  Equation!  for  Motion!  at  a  Point 


*  ELONO  *  aurga  -  ybar*ain(yaw)  ♦  abar*atn (pitch) 

*  ♦  xbar*(eoa(yaw)*eoB(pitch)-2) 

*  ELATE  -  away  -  abar*ain(roll)  +  xbar*ain(yaw) 

*  ♦  ybar*(coa(roll)+eoa(yaw)-2) 

*  EVERT  “  haava  -  xbar*ain(piteh)  ♦  ybar*ain(roll) 

*  ♦  zbar  * ( coa ( pitch ) +coa ( roll ) -2 ) 


*  Tha  Forcaa  in  tha  Ship  ayatao  in  tha  X,  Y,  and  2  diractiona  ara 


*  SLONO  •  (-aurgacc)  *  (coa(yaw)*coa(pitch) ) 

*  +  (-awayacc)  *  (ain(yaw)*coa(piteh) ] 

»  ♦  [(-haavacc)  -  1]  •  (-ain(pitch) ) 


*  slate  ■  (-aurgacc)  •  (coa(yaw)*ain(pitch)*ain(roll)  -  ain(yaw) *coa(roll) ) 

*  +  (-awayacc)  *  (coa(yaw)*coa(roll)  ain(yaw)*ain(pitch)*ain(roll) ) 

*  ♦  ((-haavacc)  -  1)  *  (coa(piteh)*ein(roll) ) 


*  SVERT  •  (-aurgacc)  *  (ain(yaw)*ain(roll)  ♦  coa(yaw)*ain(pitch)*coa(roll) j 

*  ♦  (-awayacc)  *  (ain(yaw)*ain(pitch)*coa(roll)  -  coa(yaw)*ain(roll) ) 

*  ♦  (-haavacc)  -  1)  *  (coa (pitch)* coa (roll) ) 

*  whara  aurgacc,  awayacc,  and  haavacc  ara  tha  Earth  oyatan  tranalational 

*  accalarationa  in  tha  x,  y,  and  i  diractiona  and  *  1*  ia  tha  accalaration 

*  of  gravity. 


C  DIMENSIONS 


COMMON  /BLKO/  PI , DEORAD , RADDEO , MONTHS , MAVEHTS , ORONAME8 , 

2  EPTNAMES , 8PTNAMES , CHTYPES , CHUNITS , CHSYSTMS 

CHARACTER  MONTHS ( 12 ) *3, WAVEHTS*12 , ORONAMES ( 6 ) *12 
CHARACTER  EPTNAMES(7)*12,SPTNAMES(7)*12 
CHARACTER  CHTYPES(5)*3,CHUNITS(7)*6,CHSYSTMS(2)*5 

COMMON  /BLK1/  AS , PIS , STHDATAS , LSTHDATA, 8RUN , KSRVN , LSRUN , 

2  8HIPTYPS, TRIALS , LTRIAL, SHIPS , LSHIP, VARIANTS , CYCLES , SUNITS , 
2  LSUNIT, COMMENTS 

CHARACTER* 60  AS, PIS, STHDATAS 

CHARACTER  •RDN*6,SHIPTYPS*8,TRIALS*40,SUNITS*«,COMKENTS*40 

CHARACTER  SHZPS*S 

CHARACTER  VARIANTS*! ,CYCLIS*2 
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COMMON  /B LK2/  8THRUN , CNT , COUNT , NfTHCHAN , GRAV ,  LPP , LCO , DBLWL , 

8 RATS , DT , TSTART , TSTOP , TRUN , MAVBHT , SOROS . SWAY , HSA  VS, ROLL. PITCH, 
YAW, STHDATA, WAVBHTP , SHPSPD , KONO , SSATYPS , SXOWH , THOOAL, STATIS , 
STHCHN , STHUNT , STHSTD , ASCI I 
INTSOSR  CNT, COUNT, ASCII 
RIAL  LPP, LOG 

CHARACTSR  STHCHN( 10) *8, STHUNT( 10) *6, SEATYPS*2 
RIAL  STHSTD (10,2), STHDATA ( 10 ) , WAVBHTP ( 3 ) 

COMMON  /BLK3/  ACTHDATAS , LACTHDATA , STARTRUN , NRUNS , ACTHRUN , DTGS , 
ARUN , KARUN , LARUN , NPOX NT , PNT , PNTXLOC , PNTYLOC , PNTZLOC , PNTNAMS8 , 
NCHMAX , NCHAN .POINTS, SHI PS YS, CHNPTNO , CKNXLOC , CHNYLOC , CHNZLOC , 
CHNPTNA, CTITLS , CTYPS , CUNXTS, CSYSTM, CH, CHN, CHNNUM, Cl , ACTHDATA, 
FACTOR, RESULTS , PEAK 
CHARACTER* 80  ACTHDATAS 
CHARACTER  ARUN*6,DTCS*13 

INTEGER  STARTRUN , ACTHRUN , PNT , POINTS , SHIPSYS 
DIMENSION  PNTXLOC ( 0  < 10 ) , PNTYLOC ( 0 1 10 ) , PNTZLOC ( 0 1 10 ) 

CHARACTER  PNTNAMES(OtlO)*20 

DIMENSION  CHNXLOC ( 16 ), CHNYLOC (16) .CHNZLOC (16) 

INTEGER  CHNPTNO ( 16) 

CHARACTER*20  CHNPTNA (16) 

CHARACTER* 12  CTITLE(16) 

CHARACTER* 4  CTYPE(16) 

CHARACTER* 4  CUNXTS (16) 

CHARACTER* 5  CSYSTM(16) 

INTEGER  CH( 16, 5 ) , CHN, CHNNUM 
XNTEOER*2  Cl (16) 

REAL  ACTHDATA(16) 

DIMENSION  FACTOR ( 16 ) .RESULTS (16,4), PEAK( 16) 

CHARACTER* 8  DataS 
CHARACTER* 1 1  TinaS 

COMMON  /WAVS PNT/  NWPOINT , WPTNUM , WPNTXLOC , WPNTYLOC ,  WPNTZLOC , 

2  WPNTNAMES 

DIMENSION  WPTNUM ( 3), WPNTXLOC (3), WPNTYLOC ( 3 ),WPNTZLOC( 3) 
CHARACTER  WPNTNAMES(3)*20 
INTEGER  WPTNUM 

COMMON  /ACTHWVPT/  NAWPOINT , AWPTNUM , A WPNTXLOC , A WPNTYLOC , 

2  A WPNTZLOC , A WPNTNAMES 

DIMENSION  AWPTNUM ( 3 ) , A WPNTXLOC ( 3 ) , A WPNTYLOC ( 3 ) , A WPNTZLOC ( 3 ) 
CHARACTER  A WPNTNAMES (3) *20 
INTEGER  AWPTNUM 

COMMON  /BLK4/  EFLAG , ISTHFLAG , CHNFLAG 
INTEGER  EFLAG, CHNFLAG (16) 


C  CONSTANTS 


DEGRAD  ■  PI  /  ISO 
RADDEG  •  ISO  /  PZ 

NCHMAX  -  16  1  Max  no  of  channals 


C  START 


FIS  -  'ERROR. TEX' 
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OPEN  (8, FILE-PIS, STATUS- 'UNKNOWN' ) 

EFLAO  ■  0  i  Brror  flag 


Read  ACTH.XNP  flla 


1000  FORMAT ( A ) 

FIS  »  'ACTH.XNP' 

OPEN  ( 1, FILS-PIS, STATUS-' OLD ' ) 

READ (1,1000)  STHDATAS  1  STH  (Origin  tins  history)  data  path 

READ (1,1000)  ACTHDATAS  t  ACTH  (Motions  at  a  point)  data  path 

READ( 1,1000)  SHIPS 

CALL  SLENTH  ( STHDATAS, LSTHDATA) 

CALL  SLENTH  ( ACTHDATAS , LACTHDATA ) 

CALL  8LENTH  ( SHIPS, LSHIP) 

CALL  RDACTHXNP  i  Raad  ACTH.XNP  fils 

IF  (EFLAO  .GT.  0)  THEN 
AS-'CLS' 

CALL  SYSTEM  (AS) 

WRITE  (*,3000) 

WRITE  (8,3000) 

DO  10  CHN-1,NCHAN 

XF  ( CHNPLAG ( CHN )  .EQ.  1)  THEN 

WRITE  (*,3010)  CHN,CH(CHN, 1) , CH(CHN, S) 

WRITE  (8,3010)  CHN, CH (CHN, 1) ,CH(CHN, 5) 

END  XF 

10  CONTINUE 

WRITE  (*,3020) 

WRITE  (8,3020) 

GO  TO  300  I  STOP 

END  IF 

3000  FORMAT  (///22X,< ERROR  -  ACTH  program  stoppad. ' ///22X, 

2  'CHANNEL  RESPONSE  POINT') 

3010  FORMAT  (23X, 13, 9X, 13, 8X, 13) 

3020  FORMAT  (//8X, 'doas  not  hava  a  corresponding  wave  point  numbor  ' 

2  'in  ACTH.XNP'////) 


READ  (1,1000)  AS 

READ  (1, ' (15X.I5) ' )  8TARTRUN 

READ  (1, • <16X,I5) ' )  NRUNS 

READ  (1,1000)  AS 

READ  (1,1000)  AS 


ACTHRUN  -  STARTRUN  -  1 

I  Count  of  STH  runs  skipped  due  to  error 
I  Loop  over  runs 
I  Error  flag 


X8THFLAG  -  0 

DO  200  JRN  -  1, NRUNS 

EFLAO  -  0 
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AS-’CLS* 

CALL  SYSTEM  (AS) 

WRZn  (*, * (//22X, "Accass  Tin*  History  Program  (ACTH)  ")’) 
MRZn  (*,• (///,27X, "Total  numbar  of  runs  -",13)')  NRUNS 
WRITS  (*,’ (/,27X, "Start  run  numbar  -*,I3)')  STARTRUN 

ACTHRUN  •  ACTHRUN  ♦  1 

WRin  (*,' (///,27X, "Working  on  run  numbar", 13)  • )  ACTHRUN 

WRin  (ARUN,  '  (16)  * )  ACTHRUN 
CALL  FLSNTH  ( ARUN, KARUN) 

CALL  8LSNTH  (ARUN,LARUN) 

READ  (1,*)  STHRUN  t  Raad  STH  run  numbar 

WRin  (SRUN,  *  (16)  ’ )  STHRUN 
CALL  PLENTH  (SRUN,KSRUN) 

CALL  SLENTH  (SRUN,LSRUN) 


*  Raad  STH  tima  history  fils 

FIS  -  STHDATAS (It LSTHDATA) // '  \SR*  //SRUN(KSRUNt LSRUN)  // '  •  DAT ' 
OPEN  ( 2 ,  ERR-20,  FILE-FIS ,  FORM- '  UNFORMATTED ' ,  STATUS-  *  OLD ' ) 
GOTO  30 

20  EFLAG  -  1  i  STH  run  doss  not  axist 

I STH FLAG  -  I STH FLAG  ♦  1 
GOTO  190 

30  READ  (2)  COUNT, NSTHCHAN 

TRUN  -  (COUNT-1 )*DT  i  Run  langth  in  saconds 


———————————————————————————————————— 

•  Raad  STH  taxt  fila 

CALL  RDSTHTEXT 


*  Coopara  wava  point  locations  in  ACTH.INP  and  SRN.TEX 

IF  (NAWPOINT  .CT.  0)  CALL  CHXPNT 
IF  (EFLAG  .OT.  0)  OOTO  190 


•  Gat  DATE  and  TIME 

CALL  DAn(DataS) 

CALL  TIME  (TimaS) 

READ  (DataS, " (12) " )  MONTH 

DTOS  -  DataS ( 4 < 5 ) / /TimaS ( 1  > 2 ) //TimaS ( 4 1 5 ) / / ' L  •  //MONTHS (MONTH)// 
2  DataS ( 7 1 8 ) 


Opan  ACTH  tima  history  fils 
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XF  (ASCII  .IQ.  1)  THEN 

FIS  ■  ACTHDATAS ( 1 1 LACTHDATA )  /  /  • \ AR ' / /ARUN ( KARUN  i LARUN ) / / ' . DAT  * 
OPEN  ( 3 , FILE-FI8 , FORM- ' UNFORMATTED ’ , STATUS- ’ UNKNOWN  * ) 

WRITS  (3)  COUNT, NCHAN 

BL8B 

FIS  -  ACTHDATAS (ltLACTHDATA)// '  \AR*  / /ARUN ( KARUN < LARUN) // '  .ASC* 
OPEN  (3 , FILS-FI 8, STATUS- *  UNKNOWN ’ ) 

WRITE  (3,’ (215)’)  COUNT, NCHAN 

END  IF 


DO  100  CNT  -  1, COUNT  1  Start  loop  ovor  tin*  (oamploo) 

Road  STH  data  for  ono  point  in  time 
READ  (2)  (STHDATA( I ) , I-l, NSTHCHAN) 

WAVEHT  -  STHDATA ( 1 )  1  Wava  hoight  at  Origin 

SURGE  -  STHDATA ( 2 ) 

SWAY  •  STHDATA ( 3 ) 

HEAVE  -  STHDATA ( 4 ) 

ROLL  •  STHDATA ( 5 ) 

PITCH  -  STHDATA ( 6 ) 

YAW  -  STHDATA ( 7 ) 

IF  (NSTHCHAN  .OT.  7)  THEN 
DO  40  1-8, NSTHCHAN 
M  -  I  -  7 

WAVEHTP(M)  -  STHDATA(I) 

40  CONTINUE 
END  IF 


2000 


2010 


I  Wavo  hoight  at  a  point 


CALL  ACTHRESP 
IF  (ASCII  .EQ.  1)  THEN 


I  Compute  ACTH  ohip  roaponooa 
I  Binary  output  data  format 


WRITE  (3)  (ACTHDATA(I) ,1-1, NCHAN) 

I  ASCII  output  data  format 

8)  THEN 


ELSE 
KL  >  0 

IF  (NCHAN  .LS 
KL  -  KL  +  1 

WRITE  (3,2000)  CNT, KL, (ACTHDATA(X) ,1-1, NCHAN) 
FORMAT  (2X5,8F8.3) 


ELSE 

KL  -  KL  ♦  1 

WRITE  (3,2000)  CNT, XL, (ACTHDATA(X ) , 1-1,8) 
KL  •  KL  ♦  1 

WRITE  (3,2010)  KL, (ACTHDATA(X), 1-9, NCHAN) 
FORMAT  (5X,I5,6F8.3) 

END  IF 

ENPXF 


i  End  loop  ovor  timo 
I  Cloao  STH. DAT  filo 


100 


CONTINUE 
CLOSE  (2) 


CLOSE  (3) 


t  Close  ACTH  time  history  file 


•  Writ*  ACTH  text  file 

CALL  WRACTHTEXT 


Write  ACTHLOG  text  file 

CALL  WRACTHLOO  (FIS,  ACTHDATA8,LACTHDATA, TRIALS, LTRIAL, 
2  ACTHRUN , TRUN , DTOS , COMMENTS , ASCII ) 


190  CONTINUE 

IF  (BFLAQ  .OT.  0)  THEN 

IF  (I8THFLA0  .EQ.  1)  THEN 
WRITE  (8,3030) 

3030  FORMAT  (///20X, 'ERROR  -  Some  8TH  rune  not  Analysed'/) 

END  IF 

IF  (EFLAO  .EQ.  1)  THEN 
WRITE (8, 3040)  8THRUN 

ELSE IF  (EFLAO  .EQ.  2)  THEN 
WRITE (8, SOSO)  STHRUN 

ELSE IF  (EFLAO  .EQ.  3)  THEN 
WRITE (8, 3060)  STHRUN 

ENDIF 

ENDIF 

3040  FORMAT(/6X,  '8TH  run  ',13,  ‘  does  not  exist') 

3050  FORMAT(/6X, '8TH  run  ',13,'  skipped  because  there  are  no  ' 

2  'wave  points  in  the  8TH  run') 

3060  FORMAT(/6X,  'STH  run  ',13,'  skipped  because  the  8TH  wave  ' 

2  'points  do  not  sutch'/19X,  'the  ACTH  wave  points') 


200  CONTINUE  i  End  of  loop  over  runs 

CLOSE  (1)  I  Close  ACTH. INF  file 

AS«'CLS' 

CALL  SYSTEM  (A8) 

IF  (ISTHFLAO  .OT.  0)  THEN 
WRITE  (*,3030) 

IF  (ISTHFLAO  .EQ.  1)  THEN 
WRITE (*,3080) 

ELSE 

WRITE ( * , 3090 )  ISTHFLAO 
END  IF 

WRITE (*,3100) 

ELSE  l  No  errors  found 

WRITE (*,3070) 

WRITS (8, 3070) 
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o  •  o  «  u « 


END  IP 


3070  FORNAT(/22X, 'All  STH  runs  wsrs  successfully  completed') 
3080  FORMAT {/22X, 'There  was  1  STH  run  skipped') 

3090  FORMAT (/22X, 'Thsrs  wars  • ,13,*  STH  runs  skippsd') 

3100  FORMAT ( / 19X , ' Print  ths  ERROR. TBX  fils  for  details'////) 

C  QUIT 

300  CLOSE  (8)  1  Closs  ERROR.TEX  fils 

STOP 

END 


DECK  BLOCK  DATA  -  Block  data 
8/14/89  ItSO  pm 

BLOCK  DATA 

COMMON  /BLK0/  P I , DEORAD , RADDEC , MONTHS , WAVEHTS , ORGNAME S , 

2  EPTNAMES , SPTNAMES , CHTYPSS , CHUN ITS , CHS Y STMS 

CHARACTER  MONTHS ( 12 ) *  3 , WAVEHT8  *12, ORONAMES ( 6 ) * 12 
CHARACTER  EPTNAMES(7)*12,SPTNAMES(7)*12 
CHARACTER  CHTYPES(5)*3,CHUNITS(7)*6,CHSYSTKS(2)*5 

DATA  PI  /3. 1415927/ 

DATA  MONTHS  /' JAN' , 'FEB' ,  'MAR' ,  ‘APR*,  'MAT*,  'Jim*,  'Jin.* ,  ’AUG', 

2  'SEP* , 'OCT' , ’NOV* , 'DEC* / 

DATA  WAVEHTS  / ' MAVEHT ' / 

DATA  ORG NAMES  /' SURGE ',' SWAY ', 'HEAVE' , 'ROLL' ,' PITCH' , 'YAW / 
DATA  EPTNAMES  / 'LONG ', 'LATE' , 'VERT' ,' RELMOT' , 'WVHTP1 ', 'WVHTP2 ' , 
2  ' HVHTP3 ' / 

DATA  SPTNAMES  /'SLONO', '8LATE', '8VERT', '  ','  ','  ', 

2  '  '/ 

DATA  CHTYP1S  /'DSP' ,'VEL','ACC','ANO','  •/ 

DATA  CHUNITS  / 'FEET' , 'FPS' , 'Q-S' , 'DEO' , 'DPS' , *DPS2 ',  •  '/ 

DATA  CH8YSTMS  / • EARTH ' , ' SHIP ' / 

END 


SUBROUTINES 


DECK  ACTHRE8P  -  ACTH  ship  rssponsss 
9/3/89  8 i 40  pm 

SUBROUTINE  ACTHRESP 

COMMON  /ELKO/  PI, DEORAD, RADDEG, MONTHS, HAVEHTS, ORONAMES, 

2  EPTNAMES, SPTNAMES, CHTYPES, CHUNITS, CHSYSTMS 

CHARACTER  MMITHS(12)«3,HAVBHTS*12,ORONAMES(6)*12 
CHARACTER  EPTNAMES(7)*12,SPTNAMES(7)*12 
CHARACTER  CHTYPES(5)*3,CHUNITS(7)*6,CHSYSTMS(2)*5 

COMMON  /BLK1/  AS , FIS , STHDATAS , LSTHDATA, SRUN , KSRUN , L8RUN, 

2  SHIPTYPS , TRIALS , LTRIAL , SHIPS , LSHIP , VARIANTS , CYCLES , SUNITS , 
2  LSUNIT, COMMENTS 
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CHARACTER* 80  AS,FIS,STHDATAS 

CHARACTER  SRUN*6,SHIPTYPS*8,TRIALS*40,SUNITS*6,COMMSNTS*40 

CHARACTER  SHI PS *5 

CHARACTER  VARX ANTS *1, CYCLES *2 

COMMON  /BLK 2/  STHRUN , CNT , COUNT , NSTHCHAN , ORAV , LPP , LCO , DBLNL , 

2  SRATE , DT , TSTART , TSTOP , TRUN , HAVEHT , SURGE , SHAY , HEAVE , ROLL , PITCH , 
2  YAW, STHDATA , HAVEHTP , SHP8PD , HONG , SEATYPS , SIQWH , TMODAL , 8TATIS , 

2  STHCHN , STHUNT , STHSTO , ASCI  X 
INTEGER  CNT, COUNT, ASCII 
REAL  LPP, LCO 

CHARACTER  STHCHN(10)*8,STHUNT(10)*6,SEATYPS*2 
REAL  STHSTO (10, 2), STHDATA (10) ,WAVEHTP(3) 

COMMON  /BLK3/  ACTHDATAS , LACTHDATA , STARTRUN , NRUNS , ACTHRUN , DTGS , 
2  ARUN , KARON , LARUN , N POINT , PNT , PNTXLOC , PNTYLOC , PNTZLOC , PNTNAMES , 

2  NCHMAX,NCHAN, POINTS, SHIPSYS, CHNPTNO,CHNXLOC, CHNYLOC, CHNZLOC, 

2  CHNPTNA, CTITLB , CTYPE , CUNITS , CSYSTM, CH , CHN, CHNNUM, Cl , ACTHDATA, 

2  FACTOR, RESULTS, PEAK 
CHARACTER* 80  ACTHDATAS 
CHARACTER  ARUN*6,DTCS*13 

INTEGER  STARTRUN , ACTHRUN , PNT , POINTS , SHIPSYS 
DIMENSION  PNTXLOC ( 0 1 10 ) , PNTYLOC ( 0 1 10 ) , PNTZLOC ( 0 1 10 ) 

CHARACTER  PNTNAMES (Oi 10) *20 

DIMENSION  CHNXLOC(16) , CHNYLOC (16) , CHNZLOC (16) 

INTEGER  CHNPTNO( 16) 

CHARACTER* 20  CHNPTNA (16) 

CHARACTER* 12  CTITLE(16) 

CHARACTER* 4  CTYPE (16) 

CHARACTER* 4  CUNXT8(16) 

CHARACTER* 5  CSYSTM(16) 

INTEOER  CH ( 16, S), CHN, CHNNUM 
INTEGER* 2  Cl (16) 

REAL  ACTHDATA (16) 

DIMENSION  FACTOR ( 16 ) , RESULTS (16,4), PEAK ( 16 ) 

DIMENSION  CHNXBAR(16) ,CHNYBAR(16) ,CHNZBAR(16) 

REAL  PRCHD8P ( 16 } , PRLAVEL ( 16 ) , PRVEDSP ( 16 ) , PRVBVEL ( 16 ) 

REAL  PRCHVEL(16),PRLODSP(16) ,PRLOVEL(16) ,PRLADSP(16) 

REAL  THMIN(16) ,THMAX( 16) ,MEAN 

DOUBLE  PRECISION  TMP,AR0,8UM(16) ,SUMSQR(16) 

REAL  LONFOR , LATFOR 


IF  (CNT  .EQ.  1)  THEN 


Initialise  variable!  at  atart  of  run 

DO  10  I-1,NCHAN 
FACTOR ( I )  -  1 
10  CONTINUE 

FTO  -  1  /  GRAV 

I  •  0  1  Wave  height  or  Origin  reaponaee 

PNTXLOC ( I )  •  LCO  /  (LPP/20)  1  Longitudinal  center  of  gravity 

(froo  FP) 

PNTYLOC ( I )  -  0  J  Centerline 

PNTZLOC ( I )  -  0BLWL  I  Waterplane  (front  BL) 

PNTNAMES ( I )  ■  'Origin  (LCO,  CL,  HP)' 

20  CONTINUE 


DO  30  CHN  -  l.NCHAN 


THMAX  (CHN) -(-32767) 

THMIN(CHN)- (32767) 

SUN(CHN)-0 
SUK8QR ( CRN ) -0 
PRCHDSP(CHN)  -  0 
PRCHVEL(CHN)  -  0 
PRLODSP ( CHN )  •  0 
PRLOVEL ( CRN )  •  0 
PRLAD8P ( CHN )  •  0 
PRLAVEL(CHN)  -  0 
PRVED8P ( CHN )  -  0 
PRVEVEL ( CHN )  -  0 

PUT  ■  CH ( CRN ,  5)  I  Channel  point 

IP  (PNT  .  EQ.  0)  THEN  I  Origin  location 

CHNXLOC (CHN)  -  PNTXLOC(PNT)  i  Station  aaaoeiatad  with  LCO 

CHNYLOC(CHN)  -  PNTYLOC(PNT)  I  Cantarlina 

CHNZLOC ( CHN )  »  PNTZLOC(PNT)  I  Watarplana  (from  BL) 

CHNPTNA { CHN )  -  PNTNAMES (PNT)  I  Channal  point  naiM 

ELSE 

*  X,  Y,  Z  coordinator  in  SMP  Ship  Rafaranca  ayatam 

*  XLOC  in  atation  numbar , 

*  YLOC  poaitiva  to  port  from  cantarlina, 

*  ZLOC  poaitiva  up  from  baaalina 

XLOC  -  CHNXLOC (CHN) 

YLOC  -  CHNYLOC(CHN) 

ZLOC  -  CHNZLOC (CHN) 

*  X,  Y,  Z  eoordinataa  in  right-handad  coordinata  ayatam 

*  XBAR  ia  diatanca  poaitiva  forward  from 

*  longitudinal  cantar  of  gravity , 

*  YBAR  ia  diatanca  poaitiva  to  port  from  cantarlina, 

*  ZBAR  ia  diatanca  poaitiva  up  from  watarlina 

CHNXBAR(CHN)  »  LCO  -  XLOC  •  (LPP  /  20) 

CHNYBAR(CHN)  •  YLOC 

CHN ZBAR (CHN)  -  ZLOC  -  DBLWL 

END  IP 

30  CONTINUE 
END  IP 


*  Computa  ACTH  ahip  raaponaa  tima  hiatoriaa 


IP  (POINTS  .EQ.  1)  THEN 

•  Notions  at  a  Point  calculations  to  ba  dona 


ROLRAD  ■  ROLL  *  DEORAD 
SR  -  SIN (ROLRAD) 

CR  •  COS ( ROLRAD ) 
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PITRAD  -  PITCH  *  DBORAD 
SP  -  SIN (PITRAD) 

CP  -  COS ( PI TRAD ) 

YAWRAD  -  YAW  *  DBORAO 
SY  -  SIN (YAWRAD) 

CY  -  COS ( YAWRAD ) 

END  IP 


DO  100  CHN  -  1 , NCHAN 


1  Loop  ovar  channel 


ZRSP  ■  CH ( CHN ,  1) 
ITYP  ■  CH ( CHN ,  2) 
ISYS  ■  CH ( CHN ,  4) 
IP NT  -  CH ( CHN ,  S) 


I  Channel  reaponae 
1  ■  type 

l  "  ayatam 

1  "  point 


IF  (ISYS  .BQ.  2)  THEN  i  Ship  ayatam 

ISLONG  »  1  1  Computa  longitudinal  forca 

IP  (IRSP.BQ.2  .OR.  IRSP.BQ.3)  ISLONG  -  0 
I SLATE  »  1  i  Computa  lataral  forca 

IF  ( IRSP.EQ. 1  .OR.  IRSP.BQ.3)  I SLATE  •  0 
IS VERT  ■  1  I  Computa  vartical  forca 

IF  (IRSP.EQ. 1  .OR.  IRSP.BQ.2)  I8VBRT  -  0 
END  IF 


IF  (XPNT  .EQ.  0)  THEN  1  Origin  location 


IF  (IRSP.GB.l  .AND.  IR8P.LE.6)  THEN 
— - __ - - - . - — — -- - — - 

*  Origin  raaponaaa 


IF  (XR8P  .EQ. 
IF  (IR8P  .EQ. 
IF  (IR8P  .EQ. 
IF  (XR8P  .EQ. 
IF  (IRSP  .EQ. 
IF  (IRSP  .EQ. 
IF  (ITYP  .EQ. 
GOTO  80 
END  IF 


1)  TEMP  -  SURGE 

2)  TEMP  -  SWAY 

3)  TEMP  ■  HEAVE 

4)  TEMP  -  ROLL 

5)  TEMP  -  PITCH 

6)  TEMP  -  YAW 

1)  GOTO  90  i  Diaplacamant  or  angla 

t  Valocity  or  accalaration 


IF  (IR8P.EQ.7  )  THEN 


*  Wava  haight  at  Origin 

TEMP  -  WAVEHT 

IF  (ITYP  .BQ.  1)  OOTO  90  I  Diaplacamant  or  angla 
OOTO  80  t  Valocity  or  accalaration 

END  IF 


;--fr 
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ELSE 


1  Point  location 


* 


XBAR  -  CHNXBAR ( CHH ) 
YBAR  -  CHNYBAR(CHN) 
ZBAR  »  CHNZBAR(CHN) 


IF  (ISYS  .EQ.  1)  THEN  t  EARTH  system 

« _ - _ _ - - - - _ 


IF  (IRSP.0B.1  .AND.  IRSP.LE.3)  THEN 


Abaoluta  reaponaes  at  a  point 

IF  (IRSP  .EQ.  1)  THEN  I  Longitudinal 

TEMP  -  SURGE  -  YBAR*SY  ♦  ZBAR*SP  +  XBAR* (CY+CP-2 ) 

ELSEIF  (IRSP  . EQ.  2)  THEN  I  Lateral 

TEMP  -  SWAY  -  ZBAR*SR  +  XBAR*SY  +  YBAR* (CR+CY-2 ) 

ELSE  J  Vertical 

TEMP  -  HEAVE  -  XBAR*SP  +  YBAR*SR  ♦  ZBAR* ( CP+CR-2 ) 

END  IF 

IF  (ITYP  .EQ.  1)  GOTO  90  i  Displacement 

GOTO  80  i  Velocity  or  acceleration 

END  IF 


IF  (IRSP  .EQ.  4)  THEN 


Relative  motion  at  a  point 

VERDSP  ■  HEAVE  -  XBAR*SP  +  YBAK'SR  ♦  ZBAR* (CP+CR-2 ) 

TEMP  ■  VERDSP  -  WAVEHTP ( IPNT) 

IF  (ITYP  .EQ.  1)  GOTO  90  I  Displacement 

goto  80  l  Velocity  or  acceleration 

END  IF 


IF  (IRSP  .EQ.  7)  THEN 


Wave  height  at  a  point 
TEMP  -  WAVEHTP (IPNT) 

IF  (ITYP  .EQ.  1)  GOTO  90  I  Displacement 
GOTO  80  i  Velocity  or  acceleration 

END  IF 


ELSE  I  Ship  system 


*  Compute  motions  at  a  point  -  EARTH  system 

ELONO  -  SUROE  -  YBAR*SY  ♦  ZBAR*SP  +  XBAR* (CY+CP-2 ) 
SLATE  -  SWAY  -  ZBAR*SR  ♦  XBAR*SY  +  YBAR* (CR+CY-2 ) 
EVERT  •  HEAVE  -  XBAR*SP  +  YBAR* SR  +  ZBAR* (CP+CR-2 ) 
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Next  c on put*  velocities  at  a  point 

IF  (CNT  .BQ.  1)  THBN  1  initial  valuaa  of  displacement 

PRLODSP ( CHN )  -  ELONO 
PRLXDSP ( CHN )  -  SLATE 
PRVEDSP ( CHN )  »  EVERT 
END  IP 

BLOHVSL  -  (ELONO  -  PRLODSP(CHN) )  *  SRATE 
BLATVBL  •  (SLATS  -  PRIADSP ( CHN ) )  *  BRATS 
SVSRVXL  •  (EVERT  -  PRVEDSP ( CHN ) )  *  BRATS 

PRLODSP(CHN)  ■  ELONO 
PRLADSt*  ( CHN )  •  SLATS 
PRVEDSP (CHN)  -  EVERT 


Last  compute  accelerations  at  a  point 

ELONACC  •  (BLONVEL  -  PRLOVEL (CHN ) )  *  SRATE 
ELATACC  -  (ELATVEL  -  PRLAVEL ( CHN ) )  *  SRATE 
EVERACC  ■  (EVERVEL  -  PRVEVEL ( CHN ) )  •  SRATE 

PRLOVEL (CHN)  -  ELONVEL 
PRLAVEL(CHN)  -  ELATVEL 
PRVEVEL (CHN)  -  EVERVEL 


Convert  to  Barth  System  forces  in  g's 
including  force  due  to  gravity 

Coordinate  system  for  forces  is 
x  pos  aft/  y  pos  to  stbd/  z  pos  down 

LONFOR  -  -  ELONACC  *  FTO  I  Longitudinal  force 

LATFOR  -  -  ELATACC  •  FTO  i  Lateral  force 

VERPOR  »  -  EVERACC  •  FTO  -  1  J  Vertical  force 


Compute  Longitudinal,  Lateral,  and  Vertical  Forces 
(including  Gravity)  in  the  Ship  System  using 
angle  rotation  order 
yaw,  pitch,  roll 


2 

2 


XF  (X8L0N0  .BQ.  1) 
8 LONG  ■  LONFOR  • 
LATFOR  * 
VERPOR  • 

END  XF 


THEN 

CY  *  CP  * 
BY  *  CP  - 
BP 


XF  (X SLATE  .EQ.  1)  THEN 

SLATS  ■  LONFOR  *  (CY  *  8?  *  8R  -  SY  *  CR)  * 
2  LATFOR  *  (CY  *  CR  ♦  BY  *  BP  •  SR)  ♦ 
2  VERPOR  *  CP  *  SR 


END  XF 
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IF  ( ISVBRT  .BQ.  1)  THEN 

SVERT  -  LONFOR  *  (SY  •  SR  ♦  CY  *  SP  •  CR)  ♦ 
2  LATPOR  *  (SY  *  SP  *  CR  -  CY  *  SR)  + 

2  VBRFOR  *  CP  *  CR 

END  IF 


IF  (IRSP  .  EQ.  1)  THEN  1  Longitudinal  fore* 

TEMP  -  SLONG 
GOTO  90 
END  IF 

IF  (IRSP  .BQ.  2)  THEN  I  Lateral  fore* 

TEMP  ■  SLATE 
GOTO  90 
END  IF 


IF  (IRSP  .EQ.  3)  THEN  t  Vertical  fore* 

TEMP  ■  SVERT 
GOTO  90 
END  IF 

END  IF  !  EARTH  /  Ship  syatam 


END  IP 


I  Origin  /  point  location 


80  IF  ( ITYP.EQ.2  .OR.  ITYP.EQ.3)  THEN  1  Velocity  or  acceleration 


Compute  valocity 

IF  (CNT  .EQ.  1)  PRCHDSP ( CHN )  »  TEMP 
TEMPVBL  •  (TEMP  -  PRCHDSP (CHN) )  *  SRATE 
IF  (CNT  .GT.  1)  PRCHDSP (CHN)  •  TEMP 

IF  ( ITYP  .EQ.  2)  THEN 
TEMP  ■  TEMPVEL 
GOTO  90 
END  IF 


Compute  acceleration 

TEMP ACC  -  (TEMPVEL  -  PRCHVEL ( CHN ) )  *  SRATE 
PRCHVEL(CHN)  -  TEMPVEL 

IF  (.NOT.  (IPNT.EQ.O  .AND.  (IRSP.OE.4  .AND.  IRSP.LE.6) ) )  THEN 
TEMPACC  -  TEMPACC  *  FTC 
END  IF 

TEMP  ■  TEMPACC 

END  IF  1  Velocity  /  acceleration  type 


_ _ _ _ _ - _ _ _ 

*  Compute  minimum  analysis  as  a  function  of  time 
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O  *  *  *  *  U« 


90  TMP  -  TEMP 

SUM ( CHN )  -  SUM ( CHN )  ♦  TMP 
SUMSQR(CHN)  -  SUMSQR(CHN)  +  TMP* TMP 
ZP  (TEMP  .0T.  THMAX(CHN) )  THMAX(CHN)  -  TEMP 
IF  (TEMP  .LT.  THMZN(CHN) )  THMXN(CHN)  -  TEMP 
ACTHD ATA ( CHN )  «  TEMP 


100  CONTINUE 


l  End  loop  over  channels 


IP  (CNT  .EQ.  COUNT)  THEN 


Complete  minimum  enelysie  for  run 
DO  120  CHN  -  1,NCHAN 

ARC  •  (SUMSQR(CHN)  -  SUM ( CHN )* SUM (CHN) /COUNT) 
IP  (ARG  .OT.  0.)  CO  TO  110 
ARC  «  0 

110  STDDEV  -  DSQRT(ARG/ (COUNT-1) ) 

MEAN  -  SUM (CHN) /COUNT 
RESULTS (CHN, 1)  »  MEAN 
RESULTS (CHN, 2)  -  STDDEV 
RESULTS (CHN, 3)  -  THMAX(CHN) 

RESULTS (CHN, 4)  -  THMIN(CHN) 

THMX  •  RESULTS (CHN, 3) 

THMN  -  RESULTS (CHN, 4) 

PEAK(CHN)  -  THMX 

IP  (ABS (THMN)  .OT.  ABS(THMX) )  PEAX(CHN)  -  THMN 
120  CONTINUE 

END  IP 

RETURN 

END 


DECK  ATAN2D  -  Arctangent  function  in  degreea  for  any  quadrant 

2/18/89  It  IS  pm 

FUNCTION  ATAN2D  (B, A, RADDEO) 

Arctangent  function  to  compute  angles  (in  degrees)  in  any  quadrant. 
The  b  argument  is  the  imaginary  vector.  The  A  argument  is  the  real 
vector . 

DATA  BP8  /l.E-6/ 

IP  (B  .EQ.  0.)  AT AN 2D  -  0. 

IP  (B  .OT.  0.)  AT AN 2D  -  90. 

ZP  (B  .LT.  0.)  ATAN2D  —90. 

ZP  (ABS(A)  .OT.  EPS)  ATAN2D  -  AT AN 2 ( B , A )  *  RADDEO 

RETURN 

END 


DECK  CHXPNT  -  Checks  STH  point  locations  against  ACTH  point  locations 

3/1/89  2 105  pm 

SUBROUTINE  CHXPNT 
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COMMON  /WAVEPNT/  NWPOINT, WPTNUM, WPNTXLOC, WPNTYLOC,WPNTZLOC, 
2  WPNTNAMBS 

DIMENSION  WPTNUM ( 3 ) , WPNTXLOC ( 3 ) , WPNTYLOC ( 3 ) , WPNTZLOC ( 3 ) 
CHARACTER  WPNTNAMBS (3) *20 
INTEGER  WPTNUM 

COMMON  /ACTHWVPT/  NAWPOINT, AWPTNUM, AWPNTXLOC, AWPNTYLOC, 

2  A WP NT ZLOC, A WPNTNAMBS 

DIMENSION  A  WPTNUM  (3) ,  AWPNTXLOC  (3) ,  AWPNTYLOC  (3) ,  AWPNTZLOC(  3 ) 
CHARACTER  A  WPNTNAMBS ( 3 ) *20 
INTEGER  AWPTNUM 

COMMON  /BLX4/  EIXAQ, I8THBLAG, CHNFLAG 
INTEGER  EFLAG , CHNFLAO ( 16 ) 


IF  (NAWPOINT. GT.O  .AND.  NWPOINT. EQ.O)  THEN 

EFLAO  »  2  1  Thar*  ar*  wav*  point*  in  ACTH.INP  but 

no  wav*  point*  in  8RN.TSX  fil* 

ISTHFLAG  •  ISTHFLAG  ♦  1 

ELSEIF  (NAWPOINT  .NS.  NWPOZNT)  THEN 

EFLAG  ■  3  1  Wav*  point*  disagr** 

ISTHFLAG  -  ISTHFLAG  +  1 

ELSE 

DO  10  J  •  1, NAWPOINT 

IP  ( AWPTNUM ( J) .EQ. WPTNUM (J)  .AND.  AWPNTXLOC( J> .EQ. WPNTXLOC (J) 

2  .AND.  AWPNTYLOC (J).BQ. WPNTYLOC (J))  GOTO  10 

EFLAO  ■  3  i  Wav*  point*  disagr** 

ISTHFLAG  -  ISTHFLAO  +  1 
GO  TO  20 
10  CONTINUE 

END  IF 

20  RETURN 
END 


C  DECK  FLENTH  -  Finds  location  of  first  non-blank  character  in  a  string 

*  11/11/88  6i00  pa 

SUBROUTINE  FLENTH  (AS,K) 

CHARACTER* ( * )  AS 
L-LEN(Aft) 

K-l 

DO  10  I-1,L 

IF  (AS(Itl) .EQ. CHAR (32) )  00  TO  10 

K*I 

GO  TO  20 
10  CONTINUE 
20  CONTINUE 

RETURN 

END 


C  DECK  RDACTHZNP  -  Reads  ACTH  input  fil* 
*  8/31/89  lt35  pa 
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MMMM  Kl  M 


SUBROUTINE  RDACTHINP 


COMMON  /BLKO/  PI , DEORAD , RADDEO , MONTHS , WAVEHTS , ORGNAMXS , 

2  BPTNAMXS , 8PTNAKE8 , CHTYPES , CHUN ITS , CHS Y STMS 

CHARACTER  MONTHS ( 12 ) *3 , HAVBKTS* 12 , ORONAKES ( 6 ) • 12 
CHARACTER  EPTNAMES ( 7 ) *12 , SPTNAMES ( 7 ) *12 
CHARACTER  CHTYPES(S)*3,CHUNITS(7)*6,CHSYSTMS(2)*S 

COMMON  /BLK1/  AS , PIS , STHDATAS , LSTHDATA , SRUN , K3RUN , LSRUN , 

2  8HZPTYP8 , TRIALS , L TRIAL, SHIPS , LSHZP , VARIANTS , CYCLES , SUNXTS , 

2  LS UN IT, COMMENTS 

CHARACTER *80  AS, PIS, STHDATAS 

CHARACTER  SRUN*6,SHIPTYPS*8,TRXALS*40, SUNITS*«, COMKENTS*40 

CHARACTER  SHIPS* 5 

CHARACTER  VARIANTS* 1,CYCLES*2 

COMMON  /BLK2/  8THRUN , CNT , COUNT , NSTHCHAN , ORAV , LPP , LCO , DBLHL , 

2  8 RATE , DT , TSTART , TSTOP ,  TRUN , WAVBHT , SURGE , SHAY , HEAVE , ROLL , PITCH , 
YAH, STHDATA, HAVEHTP , SHPSPD , HDNO , SEATYPS , SZGHH , TMODAL, STATIS , 
8THCHN , STHUNT, STHSTD , ASCI I 
INTEGER  CNT, COUNT, ASCII 
REAL  LPP,LCC 

CHARACTER  STHCHN( 10) *8, STHUNT( 10) *6, SEATYPS*2 
REAL  STHSTD (10,2), STHDATA ( 10 ) , HAVEHTP ( 3 ) 

COMMON  /BLK3/  ACTHDATAS , LACTHDATA , STARTRUN , NRUNS , ACTHRUN , DTGS , 
ARUN ,  KARUN , LARUN , NPOINT , PNT , PNTXLOC , PNTYLOC , PNTELOC, PNTNAMES, 
NCHHAX,  NCHAN ,  POINTS ,  SHIP8YS  ,  CHNPTNO,  CHNXLOC ,  CHNYLOC,  CHNZLOC, 
CHNPTNA,  CTITLE ,  CTYPE ,  CUN  ITS ,  CSY8TM ,  CH,  CHN ,  CHNNUM,  Cl ,  ACTHDATA, 
FACTOR, RESULTS, PEAK 
CHARACTER*  80  ACTHDATAS 
CHARACTER  ARUN*6,DT08*13 

INTEGER  STARTRUN, ACTHRUN, PNT, POINTS, 8HIPSYS 
Li:ttN810N  PNTXLOC <0 i 10) , PNTYLOC (Oi 10) , PNTZL0C(0« 10) 

CHARACTER  PNTNAMES (Ot 10) *20 

DIMENSION  CHNXLOC ( 16 ),CHNYLOC( 18), CHNZLOC (16) 

INTEGER  CHNPTNO (16) 

CHARACTER* 20  CHNPTNA (16) 

CHARACTER* 12  CTITLE (16) 

CHARACTER* 4  CTYPE (16) 

CHARACTER *4  CUNITS(16) 

CHARACTER* S  C8Y8TM(16) 

INTEGER  CH ( 16, S), CHN, CHNNUM 
INTEOER*2  Cl (16) 

REAL  ACTHDATA(16) 

DIMENSION  PACTOR(16) , RESULTS (16, 4) ,PEAX(16) 

COMMON  /ACTHHVPT/  NAHPOINT, AHPTNUM, AHPNTXLOC, AHPNTYLOC, 

2  AHPNTXLOC  AHPNTNAMES 

DIMENSION' AHPTNUM(3) ,  AHPNTXLOC ( 3 ),  AHPNTYLOC ( 3 ), AHPNTZLOC ( 3 ) 
CHARACTER  AHPNTNAMES (3)*20 
INTEGER  AHPTNUM 

COMMON  /BLX4/  EFLAG, ZSTHFLAO, CHNFLAO 
INTEGER  EPLAO,CHNPLAG( 16) 


1000  PORMAT(A) 


* 
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OUTPUT  data  format 

ASCII  -  1  (Binary) 
ASCII  •  2  (ASCII) 

READ  (1,1000)  AS 

RKAD  (1, a (7X,X5) ' t  ASCII 

IP  (ASCII. NX. 2)  AiCII  -  1 


Road  point  locations  for  wavs  height  at  a  point 

RKAD  (1,1000)  AS 
RKAD  (l,'(ieX,X5)‘)  NAWPOINT 
IP  (NAWPOINT  .OT.  3)  NAWPOINT  -  3 
RKAD  (1,1000)  AS 
RKAD  (1,1000)  AS 
RKAD  (1,1000)  AS 
IP  (NAWPOINT  .OT.  0)  THXN 
DO  10  PNT-1, NAWPOINT 

READ  (1, • (I4,3P8.1,3X,A20) • )  AWPTNUM ( PNT ) , AWPNTXLOC ( PNT ) , 
2  AWPNTVLOC ( PNT ) , AWPNTZLOC ( PNT ) , AWPNTNAKKS ( PNT ) 

10  CONTINUE 
KND  IP 


Rsad  point  locations 

RKAD  (1,1000)  AS 
RKAD  ( 1 , ' ( 13X, IS ) ' )  N POINT 
IP  (NPOINT  .OT.  10)  N POINT  -  10 
RKAD  (1,1000)  AS 
READ  (1,1000)  AS 
RKAD  (1,1000)  AS 
IP  (NPOINT  .OT.  0)  THXN 
DO  20  PNT-1, NPOINT 

RKAD  (1,  * (14, 3P8. 1,3X, A20) * )  IPNT, PNTXLOC( PNT) , 

2  PNTYLOC ( PNT ) , PNTZLOC ( PNT ) , PNTNAMXS ( PNT ) 

20  CONTINUE 
KND  IP 

RKAD  (1,1000)  AS 

RKAD  (1, ' (1SX,IS) ' )  NCHAN 

IP  (NCHAN  .QT.  NCHMAX)  NCHAN  »  NCHMAX 

READ  (1,1000)  AS 

RKAD  (1,1000)  AS 

RSAD  (1,1000)  AS 

POINTS  -  0  I  Point  flag  is  sst  to  off 

8HIP8YS  -  0  1  System  flag  is  sst  to  off  (EARTH) 

DO  40  CHN  -  1, NCHAN  I  Loop  over  channel 

RKAD  (1,*)  I CHN, IRSP, ITYP, ISYS, IPNT 

ITMP  -  IPNT 
CHNPLAO(CHN)  -  0 

IP  (IPNT.OT.O  .AND.  XSYS.SQ.l  .AND. 

2  (IRSP.EQ.4  .OR.  IRSP.KQ.7) )  THEN 

NATCH  -  0 

DO  30  I  -  1, NAWPOINT 

IP  (IPNT  .IQ.  AWPTNUM ( X ) )  THXN 
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NATCH  -  1 
GOTO  30 
I  NO  IF 

30  CONTI HUB 

ZF  (NATCH  .IQ.  0)  THIN 

EFLAG  ■  1  1  No  wav*  point  nuab*r  for  Ralativ*  motion 

or  wav*  at  a  point 

CHNFLAO ( CHN )  -  1 
END  ZF 
SNDZF 


ZF  (ZR8P.LE.0  .OR.  IRSP.OT.7)  ZR8P  -  1 
ZF  ( ZTYP . LB . 0  .OR.  ZTYP.OT.5)  ZTYP  -  1 
ZF  (I8YS.LE.0  .OR.  ISYS.GT.2 )  ISYS  -  1 
ZF  (ZPNT  .LT.  0)  ZPNT  •  0 


ZF  (ZPNT  .GT.  10)  IPNT  ■  10 


CHNPTNO ( CHN )  •  IPNT 
CHNXLOC(CHN)  -  PNTXLOC ( ZPNT ) 
CHNYLOC(CHN)  •  PNTYLOC(IPNT) 
CHNILOC(CHN)  •  PNTZLOC ( IPNT) 
CHNPTNA ( CHN )  ■  PNTNAHS8 ( ZPNT ) 


ZF  (ZPNT  .EQ.  0)  THEN 


Channel  point  (id*ntifi*d  by  numb*r) 
"  "  x  location 


nan* 


I  Origin  location 


ZF  (ZR8P.GE.1  .AND.  ZRSP.LS.6)  THEN 


Origin  raaponsa* 

CTITLE(CHN)  •  ORGNAHES ( ZR8P ) 

IF  (ZTYP  .OT.  3)  ZTYP  -  1 
ZF  ( ZR8P  .LT.  4)  THEN 
IUNT  -  ZTYP 

ELSE 

IUNT  -  ZTYP  ♦  3 

END  ZF 

CUNITS(CHN)  -  CHUN  ITS ( IUNT) 

ZF  (ZR8P.0T. 3  .AND.  ITYP.EQ.l)  ZTYP  -  4 
CTYPE(CHN)  -  CHTYPES ( ZTYP) 

ISYS  -  1  1  EARTH  *y*t*a 

CSYSTM(CHN)  -  CHSYSTHS(l) 

END  ZF 


ZF  (ZR8P  .EQ.  7)  THEN 


Wav*  haight  at  Origin 

CTZTLE(CKM)  -  WAVE RTS 
IF  (ZTYP.OT.3)  ZTYP  »  1 
CTYPE ( CHN )  -  CHTYPES ( ZTYP ) 

IUNT  •  ZTYP 

CUNZTS(CHN)  •  CHUN ITS ( IUNT ) 

ISYS  -  1  I  EARTH  *y*t*m 

CSYSTN(CHN)  -  CHSYSTMS(l) 

END  ZF 
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ELSE 


1  Point  location 


IP  (ISYS  .EQ.  1)  THEN  I  EARTH  ayatem 


ZP  (IRSP  .OE.  1  .AND.  IRSP.LB.3)  THEN 


Abaoluta  raaponaaa  at  a  point 

CTZTLE(CHN)  -  EPTNAKXS ( IRSP) 

ZP  (ITYP  .OT.  3)  ITYP  -  1 
CTYPE { CHN )  •  CHTYPES ( ITYP ) 

IUNT  -  ITYP 

CUN ITS ( CHN )  -  CHUN ITS ( IUNT ) 
CSYSTK(CHN)  -  CHSYSTMS( ISYS) 

END  IP 


IP  (IRSP  .EQ.  4)  THEN 


Ralativa  motion  at  a  point 

IF  (IPNT  .OT.  3)  IPNT  -  1 
CTITLE(CHN)  -  EPTN AMES ( IRSP) 
IP  (ITYP  .OT.  3)  ITYP  -  1 
CTYPE (CHN)  •  CHTYPES (ITYP) 
IUNT  -  ITYP 

CUNZTS(CHN)  •  CHUN ITS ( IUNT) 
CSYSTM(CHN)  •  CHSYSTMS ( ISYS ) 
END  IP 


IP  (IRSP  .EQ.  7)  THEN 


Nava  height  at  a  point 

IP  (IPNT  -OT.  3)  IPNT  -  1 
CT I TLB (CHN)  •  EPTN AMES ( IPNT ♦4 ) 
IP  (ITYP.OT.3)  ITYP  •  1 
CTYPE (CHN)  -  CHTYPES (ITYP) 

IUNT  -  ITYP 

CUNIT8 (CHN)  -  CHUN ITS ( IUNT) 
CSYSTM(CHN)  -  CHSYSTKS(SSYS) 

END  IP 


ZP  (ZRSP.EQ.4  .OR.  ZRSP.EQ.7)  THEN 
CHNXLOC ( CHN )  -  ANPNTXLOC( IPNT) 
CHNYLOC (CHN )  -  AWPNTYLOC(IPNT) 
CHNZLOC(CHN)  •  ANPNTZLOC ( IPNT) 
CHNPTNA(CHN)  •  ANPNTNAMXS ( IPNT) 
ENDIP 


1 

Channel 

wave 

point 

x  location 

1 

m 

St 

•s 

y 

» 

m 

aa 

s» 

a  " 

1 

m 

u 

• 

name 

ELSE 


1  SHIP  ayatam 


IP  (ZRSP.OE. 1  .AND.  IRSP.LE.3)  THEN 
•— _ — — - — - — — 
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Pores  responses  st  s  point 


CTXTLB(CHN)  -  SPTNAMBS(IRSP) 
ITYP  ■  3 

CTYPB(CHN)  -  CHTYPES ( ITYP ) 
XUNT  -  3 

CUNXTS(CHN)  •  CHUN ITS ( XUNT ) 
CSYSTM(CHN)  -  CHSYSTMS(ISYS) 
END  IP 


END  IP 


I  EARTH  /  SHXP  system 


END  XP 


l  Origin  /  Point  location 


XP  (EPLAQ  .OT.  0)  IP NT  -  XTMP 


CTITLE (CHN)  -  CTXTLE(CHN) (li6)//'  ' / /CTYPE ( CHN ) ( 1 «  3 ) 


CH(CHN, 1) 

■ 

XRSP 

1  Channel 

response 

(identified  by  number) 

CH (CHN, 2 ) 

■ 

ITYP 

1  ** 

type 

«• 

CH(CHN, 3) 

■ 

XUNT 

|  s 

unit 

« 

CH ( CHN , 4 ) 

m 

XSYS 

1  m 

system 

m 

CH(CHN, 5) 

m 

IPNT 

1  • 

point 

as 

XP  (XPNT  .OT.  0)  POINTS  -  1  i  Point  flag  is  set  to  on 

XP  (XSYS  .BQ.  2)  SHIPSYS-1  t  System  flag  is  set  to  on  (SHIP) 

40  CONTINUE  i  End  loop  over  channel 

RETURN 

END 


C  DECK  RDSTHTEXT  -  Reads  STH  text  file 
•  8/31/89  It 35  pm 

SUBROUTINE  RDSTHTEXT 

COMMON  /8LK1/  AS ,  PIS , STHDATAS , LSTHDATA , 8RUN , KSRUN , LSRUN , 

2  S  HXPTYPS ,  TRIALS ,  LTRXAL ,  SHI  PS ,  LSHIP,  VARIANTS ,  CYCLES ,  SUNXT5  , 

2  LSUNIT, COMMENTS 

CHARACTER* 80  AS, FIS, STHDATAS 

CHARACTER  SRUN*6 , SHIPTYPS*8 , TRXALS*40 , SUNITS*6, COHHENTS*40 

CHARACTER  SHIPS* S 

CHARACTER  VARXANT8*1,CYCLE8*2 

COMMON  /BLX2/  STHRUN , CNT , COUNT , N STH CHAN , ORAV , LPP , LCG , DBLWL , 

2  SRATE  ,  DT ,  TSTART ,  TSTOP ,  TRUN ,  HAVEHT ,  SURGE ,  SHAY ,  HEAVE ,  ROLL ,  PITCH  , 
2  YAH,  STKDATA ,  HAVEHTP ,  SHPSPD ,  HD  NO ,  8EATYPS ,  S IOHH ,  TMODAL ,  8TATXS , 

2  STHCHN, STHUNT, STHSTD, ASCII 
XNTEOER  CNT, COUNT, ASCII 
REAL  LPP,LC0 

CHARACTER  STHCHN(10)*8,STHUNT<10)*6,SEATYPS*2 
REAL  STHSTD (10, 2 ),STHDATA( 10), HAVEHTP (3) 

COMMON  /HAVEPNT/  NHPOINT , HPTNUM , HPNTXLOC , HPNTYLOC , HPNTZLOC , 

2  HPNTNAMES 

DIMENSION  HPTNUM (3), HPNTXLOC (3), HPNTYLOC ( 3 ),HPNTZLOC( 3) 
CHARACTER  HPNTNAMES ( 3 ) *20 
XNTEOER  HPTNUM 
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1000  FORMAT  (A) 
1010  FORMAT  (F7.3) 
1020  FORMAT  (18) 


7X8  -  8THDATA8  ( 1 1 L8THDATA )  /  /  •  \  8R '  / /8RUN  ( RERUN  t  L8RUN  )//'•>  TXX  * 
OPEN  ( 3 ,  PXLS-FX  S ,  FORM- '  FORMATTED  * ,  STATUS-  *  OLD  * ) 

10  CONTINUE 

READ  ( 3 , 1000 , END-50 )  A8 

IF  (A8(18s26)  .BQ.  'SHIP  TYPE')  SHIPTYPS  -  A8(30t37) 

XF  (AS(18t22)  .EQ.  ’TITLE*)  THEN 
TRIALS  -  AS ( 26 t 65) 

CALL  SLBNTH  (TRIALS, LTRXAL) 

END  XF 

XF  (AS (18s 29)  .EQ.  ’HULL  VARIANT’)  VARIANTS  -  AS(33s33) 

XF  (AS(18s29)  .EQ.  'SMP  CYCLE  NO')  CYCLES  •  AS(33t34) 

XF  (AS(18s22)  .EQ.  ’UNITS')  THEN 
SUNITS  -  AS(26s 31) 

CALL  SLBNTH  ( SUNITS, LSUNIT) 

CALL  UCASE  (SUNITS, LSUNIT) 

END  IP 

XF  (AS(18t24)  .EQ.  'GRAVITY*)  THEN 
READ  (AS(28s  36) , 1010)  GRAV 
ENDXF 

XF  (AS(18t28)  .EQ.  'SHXP  LENOTH’)  THEN 
READ  (AS (32s 39) , 1010)  LPP 
ENDXF 

IF  (A8(18s29)  .EQ.  'LONGITUDINAL')  THEN 
READ  (AS(6Ss72),  1010 )  LOG 
ENDXF 

XF  (A8(18s25)  .EQ.  'DISTANCE')  THEN 
READ  ( AS  ( 56  s  63 ) , 1010 )  DBLWL 
ENDXF 

XF  (A8(18s24)  .EQ.  'COMMENT')  COMMENTS  -  AS(28s67) 

XF  (A8(18s28)  .BQ.  'SAMPLE  RATE’)  THEN 
READ  (A8(32  s  38) , 1010)  SRATB 

DT  -  l./SRATE  1  Time  between  samples  in  seconds 

ENDXF 

XF  (AS(18s27)  .EQ.  'START  TIME')  THEN 
READ  (AS (31s 38), 1010)  TSTART 
ENDXF 

XF  (AS(18s27)  .EQ.  'STOP  TIME')  THEN 
READ  (AS (31s 38) ,1010)  TSTOP 
ENDXF 

XF  (A8(18s27)  .EQ.  'RUN  TIME* )  THEN 
READ  (AS(31s  38) , 1010)  TRUN 
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*  o 


ENDIF 


IF  (AS(18:27)  .IQ.  ’SHIP  SPUD’)  THEN 
HEAD  (AS (31: 35), ' (F5.2) ')  SHPSPO 
END  ir 

IP  (AS(30t36)  .BQ.  ' HEADING' )  THEN 
HEAD  (AS (40: 44 ) , ’ (FS.O) ’)  HDNG 
END  IF 

IF  (AS(18:25)  .EQ.  'SEA  TYPE')  THEN 

IF  (AS(30t31)  .BQ.  'LO')  SEATYPS  -  'LC' 

IF  (AS(30>31)  .EQ.  *SH')  SEATYPS  -  'SC* 

END  IF 

IF  (AS(18:24)  .BQ.  'SIGNIF.')  THEN 
READ  (AS (40: 45), * (F6.2) ' )  SIGWH 
END  IF 

IF  (AS(18:22)  .EQ.  'MODAL')  THEN 
READ  (AS (40: 45 ) , ' (F6.2) ' )  TMODAL 
END  IF 

IF  (AS (18: 26)  .EQ.  'STATISTIC')  THEN 
READ  (AS ( 54: 59) , ' (F6. 2) ' )  STATIS 
END  IF 

IF  (AS (18: 39)  .EQ.  'NUMBER  OF  WAVE  POINTS:')  THEN 
READ  (AS(40:44) , * (IS) ' )  NWPOINT 
IF  (NWPOINT  .GT.  3)  NWPOINT  -  3 
DO  20  I  •  1,6 

READ  ( 3 , 1000 ) AS 
20  CONTINUE 

IF  (NWPOINT  .OT.  0)  THEN 
DO  30  I  -  1, NWPOINT 

READ  (3, ' (10X,I4,3F8.1,A20) ’ )  WPTNUM ( I ) , WPNTXLOC ( I ) , 
2  WPNTYLOC ( I ) , WPNTZLOC ( I ) ,  WPNTNAMES ( I ) 

30  CONTINUE 

ENDIF 

END  IF 


IF  (AS(38:48)  .EQ.  'STATISTICAL')  THEN 
R*AD  (3, '(///)') 

DO  40  I>1,NSTHCHAN 

READ  (3, ' (7X,A8,2X,A6,10X,F10.3,22X,F10.3) ’ )  STHCHN(I), 
2  STHUNT( I ) , (STHSTD ( I , J) , J"1 , 2 ) 

40  CONTINUE 
END  IF 

GO  TO  10 

50  CLOSE  (3)  i  Clot*  STH.TEX  fila 

RETURN 

END 


DECK  S LX NTH  -  Return*  location  of  last  non-blank  character  in  a  string 

3/31/88  8:45  am 
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SUBROUTINE  8LSNTH  ( AS ,  K ) 

CHARACTER* ( * )  AS 

L-LBN(AS) 

K-L+l 

DO  10  M-1,L 
X-K-l 

IF  (AS(K«K)  .NS.  CHAR(32))  CO  TO  20  I  Tut  for  trailing  blanks 
10  CONTINUE 
20  CONTINUE 

RETURN 

END 


C  DECK  UCASE  -  Convsrta  strings  to  uppsrcsss 

*  4/16/88  llt20  pro 

SUBROUTINE  UCASE  (AS,L) 


2 

2 


CHARACTER* (*)  AS 
CHARACTER* 1  LC<26) ,UC(26) 

DATA  LC  /'a',' b'.'e'.'d'/l’.'f 
'n'/o'/p'/q'/r'.’s'.'t'.'u1, 
DATA  UC  /'A*# 'B* , 'C* , *D' , *E* , *F* 
'N' , 'O', 'P* , 'Q* , 'R' , 'S' , *T' , *U*, 


j'g'/'h'/'i',')' 
•v' , 'w* , 'x' , 'y' , 
,  ’0*, 'H* , *  I  * , 'J' 
T(T(T,T, 


,'k', 

‘*7 

,'K’, 

'Z'/ 


•1’ 

'L* 


•m* , 

•w, 


DO  20  I»1,L 
DO  10  J-1,26 

IF  (AS(Itl)  .NE.  LC( J) )  CO  TO  10 
AS(ItZ)  -  UC(J) 

CO  TO  20 
10  CONTINUE 

20  CONTINUE 


RETURN 

END 


C  DECK  WRACTHLOG  -  Writs  ACTHLOO  tsxt  fils 
*  9/3/89  8s 15  pro 

SUBROUTINE  WRACTHLOO  (FIS, ACTHDATAS, LACTHDATA, TRIALS, LTRIAL, 
2  RUNNO,TRUN,DTGS, COMMENTS, ASCII) 

CHARACTER* ( * )  FIS , ACTHDATAS , TRIALS , DTGS , COMMENTS 
INTEGER  RUNNO, ASCII 
CHARACTER* 80  AS 


Opsn  ACTHLOO  tsxt  fils 

FIS-ACTHDATAS ( 1 <  LACTHDATA) // ' \ ACTHLOO . TEX' 

OPEN  ( 3 , FZLEBFZS , STATUS*  *  NEW ' ,ERR-10) 

WRITE  (3,"(/27X, 'ACTH  LOO  RUN  SUMMARY')*) 

WRITE  (3, " (/19X, 'TRIALS  ’,A)")  TRIALS (li LTRIAL) 

WRITE  <3,"(/19X, 'ACTH  DATA  PATH  t  ’,A)*)  ACTHDATAS ( 1 : LACTHDATA ) 
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*  o 


WRITS  (3,"(//19X, ’TYPE  CODS  I  BI  -  BINARY ,  AS  -  ASCII')”) 
WRITS  (3 ,"(/'  RUN  TYPE  TIMS  DATS-TIME-QROUP 
2  '  COMMENTS ' )") 

00  TO  20 

10  OPEN  ( 3 , FILE-FIS , STATUS* ' OLD ' , BRR-99 ) 

IS  READ  ( 3 , 1000 , ERR* 20 )  AS 
1000  FORMAT (A) 

GO  TO  15 

20  IF  (MOD(RUNNO,  S)  .EQ.  1)  WRITE  (3,*)  " 

RTIME  ■  TRUN  /  60  i  Run  tin*  in  minut** 

IF  (ASCII  .EQ.  1)  THEN  t  Binary  data  format 

AS  •  'BI' 

ELSE  I  ASCII  data  format 

AS  -  'AS' 

END  IP 

WRITE  (3, ' ( 15, 2X, A2 ,F6. 1 , A4, 3X, A13, 4X, A) ' ) 

2  RUNNO,  AS( 1 : 2) ,  RTIME,  '  MIN',  DTCS,  COMMENTS (1:40) 

CLOSE  (3)  I  Cloaa  ACTHLOO.TEX  fil* 

RETURN 

99  WRITE  (*,*)  '  ERROR  in  writing  ACTHLOG.TEX  fil*' 

STOP 

END 


DECK  WRACTHTEXT  -  Writ*  ACTH  t*Kt  fil* 

9/3/89  8:20  {n 

SUBROUTINE  WRACTHTEXT 

COMMON  /BLKO/  PI , DEGRAD, RADDEG, MONTHS , WAVBHTS , ORONAMES , 

2  EPTNAMES , SPTNAMES , CHTYPBS , CHUN ITS , CHSYSTMS 

CHARACTER  MONTHS ( 12 ) *  3 , WAVEHTS  * 12 , ORONAMES ( 6 ) * 12 
CHARACTER  EPTNAMES(7 ) *12 , SPTNAMES ( 7)*12 
CHARACTER  CHTYPES(S) *3,CHUNITS(7)*6,CHSY8TMS(2)*5 

COMMON  /BLK1/  AS , FIS , STHDATAS , LSTHDATA, SRUN, KSRUN , LSRUN, 

2  SHIPTYPS , TRIALS , LTRIAL, SHIPS ,  LSHIP , VARIANTS , CYCLES , SUNITS , 

2  LSUNIT, COMMENTS 

CHARACTER* 80  AS, FIS, STHDATAS 

CHARACTER  SRUN*6,SHIPTYPS*8,TRIALS*40,SUNITS*6,COMMENTS*40 

CHARACTER  SHIPS*5 

CHARACTER  VARIANTS* 1,CYCLES*2 

COMMON  /BLK2/  STHRUN ,  CNT ,  COUNT ,  NSTHCHAN ,  GRAV ,  LPP ,  LCG ,  DBLWL , 

2  SRATE , DT , T8TART , TSTOP , TRUN , WAVEHT , SURGE , SWAY , HEAVE , ROLL , PITCH 
2  YAW, STHDATA , WAVEHTP , SHPSPD , HDNO , SEATYPS , SIOWH , TMODAL, STATI8, 

2  STHCHN , STHUNT , STHSTD , ASC I 1 
INTEGER  CNT, COUNT, ASCII 
REAL  LPP, LCG 

CHARACTER  STHCHN ( 10 ) *8 , STHUNT ( 10 ) *  6 , SEATYPS  *  2 
REAL  STHSTD (10, 2), STHDATA (10) ,WAVEHTP(3) 

COMMON  /BLK3/  ACTHDATAS ,  LACTHDATA ,  STARTRUN ,  NRUNS ,  ACTHRUN ,  DTOS 
2  ARUN ,  KARUN ,  LARUN , NPOI NT ,  PNT,  PNTXLOC,  PNTYLOC,  PNTZLOC,  PNTNAMES, 
2  NCHMAX ,  NCHAN ,  POINTS ,  SHIPSYS ,  CHNPTNO, CHNXLOC,  CHNYLOC ,  CHNZLOC , 


2  CHNPTNA ,  CTITLE ,  CTYPE, CUNITS , CSYSTM,  CH , CHN, CHNNUM,  Cl ,  ACTHDATA , 
2  FACTOR, RESULTS, PEAK 
CHARACTER* 80  ACTHOATAS 
CHARACTER  ARUN*6,DTOS*.l3 

INTEGER  STARTRUN, ACTHRUN, PNT, POINTS , SHIPSYS 
DIMENSION  PNTXLOC ( 0 i 10 ) ,PNTYLOC(Os 10) ,PNTELOC(Ot 10) 

CHARACTER  PNTNAMES (0: 10) *20 

DIMENSION  CHNXLOC(16) , CHNYLOC(16) ,CHNZLOC(16) 

INTEGER  CHNPTNO( 16) 

CHARACTER* 20  CHNPTNA(16) 

CHARACTER* 12  CTITLE (16) 

CHARACTER *4  CTYPE(16) 

CHARACTER *4  CUNITS(16) 

CHARACTER* 5  CSYSTM (16) 

INTEGER  CH( 16, 5), CHN, CHNNUM 
INTEOER*2  Cl (16) 

REAL  ACTHDATA (16) 

DIMENSION  FACTOR ( 16 ) , RESULTS (16,4), PEAR ( 16 ) 

COMMON  /WAVEPNT/  NWPOI NT, WPTNUM, WPNTXLOC, WPNTYLOC,WPNT2LOC, 

2  WP NT NAMES 

DIMENSION  WPTNUM ( 3 ) , WPNTXLOC ( 3 ) , WPNTYLOC ( 3 ) , WPNTZLOC ( 3 ) 
CHARACTER  WPNTNAMES ( 3 ) *20 
INTEGER  WPTNUM 


Writa  ARX.TEX  fila 

FIS  -  ACTHDATAS ( 1 s LACTHD ATA ) / / ' \ AR  * / / ARUN ( KARUN * LARUN ) / / * . TEX  * 
OPEN  ( 3 , PILE-PIS , FORM- • FORMATTED 1 ,  STATUS- *  UNKNOWN ' ) 

WRITE  (3, '("RUN  DATE-TIME-GROUP  -  *,A13)*)  DTGS 
WRITE  (3, • ( /A13, " ,  O,  0,",IS,",  0,  0, ",P5. 1, * , ",  14) * ) 

2  DTGS, HDNG, SIGWH, TMODAL 
WRITE  (3, ' (//77("-") ) ' ) 

WRITE  (3, '(/-TRIAL*  ",A)’)  TRIALS (liLTRIAL) 

WRITE  (3, ' (/-UIC  CODE*  ",A5)')  SHIPS 

WRITE  (3, ' (/-RUN*", 14) ')  ACTHRUN 

WRITE  (3, ' (/"COMMENTS*  ",A)')  COMMENTS (1*40) 

WRITE  (3, ' (/"CORRESPONDING  STH  RUN*-, 14)')  STHRUN 

WRITE  (3, ’ (/"SAMPLE  RATE  t",F5.1)')  SRATE 

WRITE  (3, ' ("START  TIME*", F8.1) ' )  TSTART 

WRITE  (3, ' ( "8TOP  TIME* ",F8.1) ' )  TSTOP 

WRITE  (3, '("RUN  TIME* ",F8.1) * )  TRUN 

WRITE  (3, ' ( /, "SHIP  TYPE*  ",A)’)  SHIPTYPS 

WRITE  (3, '(-SHIP*  " ,A) ' )  SHIPS 

WRITE  (3, ' ("HULL  VARIANTS  ",A)*)  VARIANTS 

WRITE  (3,'(-8MP  CYCLE  NO*  ",A)')  CYCLES 

WRITE  (3, ' (/, "UNITS*  ",A)')  SUNITS 

WRITE  (3, ' (-0RAVITY*  ",F10.4)')  ORAV 

WRITE  (3, ' ("SHIP  LENOTH*  ",I4)')  LPP 

WRITE  (3,400)  LOG 

400  FORMAT ( 'LONGITUDINAL  CENTER  Or  GRAVITY  (REF  FROM  FP) t  *,F10.2) 
WRITE  (3,410)  DBLWL 

410  FORMAT ( 'DISTANCE  FROM  BASELINE  TO  WATERLINE*  ',F10.2,//) 

WRITE  (3, '("SHIP  SPEED*  ",F5.2,"  KNOTS")')  SHPSPD 
WRITE  (3,420)  HDNG 

420  FORMAT  (/'PREDOMINANT  HEADING  s  *,F5.0, '  DEG'/ 

2  /3X, '  8MP  OUTPUT  HEADINO  REF.  s  ' 

2  /3X, ' - ’ 

2  /3X, '  0  dag-haad  aaaa, 
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2  /3X,  ’  90  dsg-stbd  beam  mu, 

2  /3X, '  180  dsg-following  stas  '//) 

IF  (SEATYPS(li2)  .EQ.  "LC" )  THEN 

WRITE  (3,  '  ("SEA  TYPE  t  LONGCRESTED  SEAS")') 

ELSE 

WRITE  (3, ' (  "SEA  TYPE  t  SHORTCRESTBD  SEAS")') 

END  IF 

WRITE  (3,430)  SIGWH,SUNITS 
430  FORMAT  ('SIONIF.  WAVE  HEIGHT  t  ',F6.2,'  ' ,A6) 

WRITE  (3,440)  TMODAL 

440  FORMAT  ( ’MODAL  WAVE  PERIOD  x  ’,F6.2,‘  SEC'/) 

WRITE  (3,450)  STATIS 

450  FORMAT  (’STATISTIC  USED  FOR  ROLL  ITERATION  t  ',F6.2,'  *  RMS') 

WRITE  (3, ’ (///32X, "STH  PROGRAM” /28X, "STATISTICAL  RESULTS"// 

2  24X, "TIME  DOMAIN  FREQ.  DOMAIN"/ 

2  "  CHAN  NAME  UNIT  STDDEV  STDDEV"/) * ) 

DO  10  I  -  1 , NSTHCHAN 

WRITE  (3,460)  I,STHCHN(I) ,STHUNT(I) , (STHSTD( I ,3) ,J-1,2) 

460  FORMAT  ( 14, 3X, A8, 2X, A6,F10. 3, 4X, F10. 3 ) 

10  CONTINUE 

WRITE  (3,470)  NWPOINT 

4VS  FORMAT  (///'NO  OF  WAVE  POINTS!  ’,13//) 
y  -’t*  (3,480) 

480  I  rtAT  (28X, 'List  of  Wsvs  Points ' //10X, 

2  '  NO  XLOC  YLOC  ZLOC  NAME ' /12X, 51 ( ' - ' ) ) 

IF  (NWPOINT  .GT.  0)  THEN 
DO  20  PNT-1, NWPOINT 

WRITE  (3, ' ( 10X, 14, 3F7 . 1, 3X, A20) ' )  PNT, WPNTXLOC ( PNT) , 

2  WPNTYLOC(PNT) ,WPNT ZLOC (PNT) ,WPNTN AMES (PNT) 

20  CONTINUE 
END  IF 

WRITE  (3,490)  NPOINT 
490  FORMAT  (///'NO  OF  POINTS!  ’,13//) 

WRITE  (3,500) 

500  FORMAT  (28X, 'List  of  Points' //10X, 

2  '  NO  XLOC  YLOC  ZLOC  NAME ' /12X, 51 ( '-' ) ) 

IF  (NPOINT  .GT.  0)  THEN 
DO  30  PNT-1, NPOINT 

WRITE  (3, ' (10X, 14, 3F7. 1, 3X, A20) ' )  PNT , PNTXLOC ( PNT ) , 

2  PNTYLOC ( PNT ) , PNT ZLOC ( PNT ) , PNTNAMES ( PNT ) 

30  CONTINUE 
END  IF 

WRITE  (3,505)  NCHAN 

505  FORMAT  (///'NO  OF  CHANNELS I  ’,13//) 

WRITE  (3,510) 

510  FORMAT  (19X,'List  of  Chsnnsls  with  Associstsd  Points'/) 

WRITE  (3,520) 

520  FORMAT  (13X, 'CHANNEL' ,29X, 'POINT' ) 

WRITS  (3,530) 

530  FORMAT  ('  NO.  NAME  TYPE  UNIT  SYSTEM  NO.  XLOC  YLOC' 

2  '  ZLOC  NAME ' /IX, 29 ("-"), 5X, 44 <"-")) 

DO  40  CHN  •  1, NCHAN 

WRITE  (3,540)  CHN , CTITLE ( CHN ) , CTYPE ( CHN ) , CUN ITS ( CHN ) , CS YSTM ( CHN ) 
2  CHNPTNO ( CHN ) , CHN XLOC ( CHN ) , CHNYLOC ( CHN ) , CHN ZLOC ( CHN ) , CHNPTNA ( CHN ) 
540  FORMAT  (13, 2X, A6,2X, A3,2X, A4, 2X, A5, 6X, I2,2X,F5.2, 1X,F5. 1, IX, F5. 1 
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2  2X,A20) 

40  CONTINUE 

WRITE  (3, '{///}•) 

WRITE  (3/ ' (77 ( "-")/" | " ,22X, "M  INIHUM  ANALYSIS", 

2  22X, " I "/77 ) /" I  CHAN.  TITLE", 7X. "UNITS", 6X, "KEAN" , 6X, 

2  "STO.  DEV.",5X,"MAX",9X,"MIN",6X,"j"/77("-"))') 

DO  230  CHN-1,NCHAN 

WRITS  (3,1010)  CHN , CTITLE ( CHN ) ,CUNITS(CHN) , 

2  ( RESULTS ( CHN, J) ,J»1,4) 

1010  FORMAT  ( ' I  ' , 12, 2X, A12, 2X, A4, IX, 1P4E12.3, ’  I') 

IF  (CHN.OT.l  .AND.  MOD (CHN, 5) .EQ.O)  WRITE  (3, 1 { " | ", 75X, " | " ) * ) 
230  CONTINUE 

WRITE  (3, ' (77 ( "-") ) • ) 

WRITE  (3,1020) 

1020  FORMAT  (// 'CHANNEL  NO. /TITLE ', 8X, ' Peak* , 11X, 'Mean ', 11X, ' STDDBV' ) 
WRITE  (3,*)  (CHAR (205) , 1*1,66) 

DO  240  CHN«1,NCHAN 

WRITE  (3,1030)  CHN, CTITLE (CHN), PEAR (CHN), 

2  (RESULTS (CHN, J) ,J«1, 2) 

1030  FORMAT  ( IX, 12 , 2X, A12 , 7X, 1PE10.3, SX, 1PE10. 3, 5X, 1PE10. 3 ) 

240  CONTINUE 

WRITE  (3,' (/"Total  number  of  data  records  this  run  ■  ” ,  1 5 )  * ) 

2  COUNT 

CLOSE  (3)  i  Close  ACTH  text  file 

RETURN 

END 


C  PROGRAM  END 

I 


133 


REFERENCES 


1.  Meyers,  W.G.,  T.R.  Applebee,  and  A.E.  Baitis,  "User's  Manual  for 
the  Standard  Ship  Motion  Program,  SMP,M  DTNSRDC  Report  SPD-0936-01, 
(Sep  1981) . 

2.  Meyers,  W.G.  and  .E.  Baitis,  "SMP-84:  Improvements  to  Capability 
and  Prediction  Accuracy  of  the  Standard  Ship  Motion  Program  SMP81," 
DTNSRDC  Report  SPD-0936-04  (Sep  1985) . 

3.  Zarnick,  E.E.  and  J.A.  Diskin,  "Modelling  Techniques  for  the 
Evaluation  of  Anti-Roll  Tank  Devices,"  Third  Ship  Control  System 
Symposium  (Sep  1972) . 

4.  Bales,  S.L.,  A.E.  Baitis,  and  W.G.  Meyers,  "Rigid  Body  Ship 
Responses  and  Associated  Periods  for  a  Series  of  Liquid  Natural  Gas 
(LNG)  Ships,"  NSRDC  Report  SPD-517-04  (Apr  1975). 

5.  Baitis,  A.E.,  W.G.  Meyers,  and  T.R.  Applebee,  "A  Non-Aviation  Ship 
Motion  Data  Base  for  the  DD  963,  CG  26,  FF  1052,  FFG  7  and  the  FF  1040 
Ship  Classes,"  NSRDC  Report  SPD-738-01  (Dec  1976). 

6.  Baitis,  A.  Erich,  S.L.  Bales,  W.R.  McCreight,  and  W.G.  Meyers, 
"Prediction  of  Extreme  Ammunition  Cargo  Forces  at  Sea,"  DTNSRDC  Report 
SPD-704-01  (Jul  1976) . 

7.  Baitis,  A.  Erich,  Terrence  R.  Applebee  and  Thomas  M.  McNamara, 
"Human  Factors  Considerations  Applied  to  operations  of  the  FFG-8  and 
LAMPS  Mklll,"  ASNE  Naval  Engineers  Journal  Vol.96,  No.  3  (May  1984). 

8.  Salvesen,  Nils,  E.O.  Tuck,  and  0.  Faltinsen,  "Ship  Motions  and  Sea 
Loads,",  Transactions  of  the  Society  of  Naval  Architects  and  Marine 
Engineers,  Vol.  78,  pp.  250-287  (1970). 


9.  Baltic,  A.E.  and  R.  Wermtar ,  MA  Summary  of  Oblique  Saa  Experiment a 
Conducted  at  the  Naval  Ship  Research  and  Development  Center,"  13th 
International  Towing  Tank  Conference  (1972). 

10.  St.  Denis,  M.  and  W.J.  Pierson,  "On  the  Motions  of  Ships  in 
Confused  Seas,"  Transactions  of  the  Society  of  Naval  Architects  and 
Marine  Engineers,  Vol.  61,  pp.  280-297  (1953). 

11.  "MS-DOS  Version  3.3  Reference  Guide,"  COMPAQ  Computer 
Corporation,  First  Edition  (Sep  1987) . 

12.  "Lahey  F77L  FORTRAN  77  Version  2.22",  Lahey  Computer  Systems, 
Inc.,  Copyright  1987. 


136 


INITIAL  DISTRIBUTION 


Copies  CENTER  DISTRIBUTION 


6 

NAVSEA 

Copies 

Code 

Name 

2  SEA  06W3 

2  SEA  05R1  (W.  Webster) 

1 

50 

W.B.  Morgan 

2  SEA  05H3  (J.  Pattison) 

9 

504 

V. J.  Monacella 

2 

NRL 

R.  Gover 

1 

56 

D.S.  Cieslowski 

2 

NAVPGSCOL 

1 

561 

G . G .  Cox 

1  V.  Healey 

l  Library 

1 

562 

M.K.  Davis 

1 

NSWC 

1 

3421 

TIC  (C) 

G.  Tackett 

1 

3422 

TIC  (A) 

1 

NUSC 

D.  Powers 

1 

NATC 

D.  Carico 

1 

NTSC 

R.  Galloway 

1 

USNA 

Tech  Lib 

12 

DTIC 
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